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ABSTRACT 

The  Maintenance  Optimization  Model  is  a  computer  simulation  program  designed 
to  help  determine  optimal  maintenance  configurations  and  resource  requirements  for  the 
maintenance  subsystem  of  the  Seaborne  Mobile  Logistic  System  (SMLS). 

In  the  model,  failure/repair  cycles  for  each  end  item  in  the  Landing  Force  are  simulated 
over  the  period  of  a  specified  mission,  using  event  generations,  queuing,  and  Monte  Carlo  tech¬ 
niques.  Measures  of  effectiveness  such  as  utilization  statistics  for  the  maintenance  system 
configuration  and  availability  of  the  end  item  in  the  Landing  Force  are  computed.  In  addition, 
the  effect  of  the  maintenance  configuration  on  the  availability  of  end  items  in  the  Landing 
Force  and  on  requirements  for  resources  such  as  operational  readiness  floats  (ORF),  maintenance 
personnel,  and  tool  sets,  kits,  and  special  equipment  can  be  examined. 

*  This  report  contains  a  description  of  the  computer  program  for  the  Maintenance 

Optimization  Model,  a  user’s  guide  for  the  program,  a  listing  of  the  program,  and  sample  output. 

ADMINISTRATIVE  INFORMATION 

This  effort  was  performed  as  a  part  of  the  SMLS  Study  which  is  jointly  sponsored  by  the  Deputy  Chief 
of  Naval  Operations  (Surface  Warfare)  and  by  the  Assistant  Chief  of  Staff  (G-4),  U.S.  Marine  Corps.  The  study 
is  supported  under  Task  Area  R00101,  Element  Number  65103M.  The  work  was  carried  out  by  the  Amphibious 
Warfare  Group  (Code  1865)  of  the  Operations  Research  Division. 

1.0  INTRODUCTION 

The  Seaborne  Mobile  Logistic  System  (SMLS)  defines  the  procedures  and  operations  for  logistic 
support  from  a  seabase  to  a  U.S.  Marine  Corps  Landing  Force  positioned  ashore.  The  seabase  is  composed  of 
amphibious  support  ships  with  supplies  distributed  in  such  a  way  as  to  provide  centralized  logistic  support. 

SMLS  consists  of  the  following  subsystems: 

•  Maintenance 

•  Supply 

•  Medical 

j  •  Command  and  Control 

•  Transportation 
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•  Communications 

•  Embarkation 

•  Services 

Under  SMLS  the  maintenance  subsystem  requires  the  use  of  large  amounts  of  resources  (e.g.,  personnel, 
equipment,  space,  etc.)  in  supporting  the  end  items  (operational  equipment  ashore)  in  a  Marine  Corps  Landing 
Force.  Consequently,  a  detailed  analysis  to  determine  these  requirements  and  to  determine  optimal  maintenance 
subsystem  configurations  is  necessary.  However,  in  order  to  analyze  the  operations  and  procedures  of  this  sub¬ 
system  in  depth,  it  must  be  considered  independently  from  the  other  subsystems  in  SMLS.  It  is  therefore 
assumed  that  the  basic  requirements,  operations,  and  procedures  of  the  maintenance  subsystem  are  essentially 
non -interactive  with  the  other  subsystems.  The  maintenance  subsystem  can  then  be  referred  to  as  a  complete 
system. 

A  detailed  analysis  of  the  maintenance  system  was  performed  at  the  Naval  Ship  Research  and  Develop¬ 
ment  Center.  With  this  analysis  as  a  basis,  a  computer  simulation  model,  referred  to  as  the  Maintenance 
Optimization  Model,  was  developed.  In  the  model,  a  maintenance -system  configuration  and  a  Landing  Force 
are  defined  and  measures  of  effectiveness  (MOE’s)  for  both  are  computed.  Specific  MOE’s  are  the  availability 
of  the  end  items  in  the  Landing  Force  and  utilization  statistics  of  the  Maintenance  system.  In  addition,  the 
effect  of  the  maintenance  configuration  on  the  availability  of  end  items  in  the  Landing  Force  and  on  resource 
requirements  such  as  operational  readiness  floats,  maintenance  personnel,  and  tool  sets,  kits  and  special 
equipment  can  be  examined. 

The  configuration  of  the  maintenance  system  is  defined  by  locations  of  repair  (i.e.,  maintenance  done 
at  the  seabase  or  ashore),  complexity  and  depth  of  repair  available  at  each  repair  location  (i.e.,  echelons  of 
repair*  available),  number  of  maintenance  personnel  and  repair  spaces  available,  and  the  number  of  operational 
readiness  float  (ORF)  items  available  (i.e.,  replacements  for  failed  end  items).  The  Landing  Force  is  composed 
of  a  number  of  units  located  ashore.  Each  of  these  units  is  allocated  a  specified  number  of  end  items. 

The  Maintenance  Optimization  Model  simulates  actual  end -item  failures  and  then,  depending  on 
various  input  parameters  and  the  maintenance  configuration,  decides  (see  section  6.12)  whether  the  failed  item 
will  be 

•  repaired  after  being  replaced 

•  repaired  and  returned  to  use  without  being  replaced 

•  replaced  and  discarded  without  repair 

The  values  of  output  variables  include  the  availability  of  end  items,  the  number  of  end  items  discarded,  the 
number  of  end  items  repaired  at  each  maintenance  location,  the  time  spent  in  repairing  end  items  at  each 
maintenance  location,  and  the  number  of  float  items  required.  The  input  maintenance  configuration  can  be 
changed  and  the  resulting  changes  in  the  output  variables  analyzed  to  help  determine  the  most  effective 
maintenance  configuration.  To  determine  the  resource  requirements  of  each  maintenance  system  configuration, 


*In  defining  maintenance  operations,  the  USMC  categorizes  end  item  failures  by  echelon  of  repair  required.  1st  echelon  is 
performed  by  the  end  item  user,  2nd  echelon  consists  of  minor  repair,  3rd  echelon  consists  of  component  and  assembly 
replacement,  4th  echelon  consists  of  component  repair,  and  5th  echelon  consists  of  overhaul  and  rebuild.  Only  2nd 
through  4th  echelons  are  considered  in  the  model. 
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the  model  also  computes  the  tool  sets,  kits,  and  special  equipment  needed  and  the  number  of  repair  personnel 
required  at  each  repair  location. 

The  model  has  been  programmed  in  FORTRAN  IV  to  run  on  the  CDC  6400  series  computer. 

2.0  BACKGROUND 

The  analysis  required  in  the  development  of  the  Maintenance  Optimization  Model,  the  definition  of 
the  maintenance  system  and  its  associated  operational  procedures,  and  a  detailed  explanation  of  the  mainte¬ 
nance  concepts  referred  to  in  this  report  can  be  found  in  a  report  by  Gray.1  An  overall  treatment  of  the 
maintenance  subsystem  and  its  interaction  with  the  other  subsystems  (supply,  medical,  transportation, 
communications,  and  command  and  control)  of  SMLS  will  be  found  in  a  report  by  Hubai2  et  al.  Consequently 
only  a  brief  description  of  SMLS  maintenance  procedures  is  included  here  to  aid  in  understanding  the  operation 
of  the  Maintenance  Optimization  Model.  When  an  end  item  in  the  Landing  Force  fails,  it  will  either  be  (1) 
replaced  and  then  repaired  and  made  available  whenever  needed;  (2)  repaired  without  being  replaced  and 
restored  to  the  same  place  to  resume  operation;  (3)  or  replaced  and  discarded.  If  a  replacement  is  required, 
an  operational  readiness  float  (ORF)  item  is  removed  from  the  inventory  as  soon  as  one  is  available.  Repair 
of  the  end  item  (item  alone  will  also  be  used  to  mean  end  item)  can  take  place  at  the  seabase  or  ashore,  either 
by  maintenance  personnel  at  the  unit  or  by  a  contact  team  (CT).  Seabase  repair  takes  place  at  a  shop  on  an 
amphibious  support  ship.  The  shop  contains  a  specified  number  of  repair  spaces.  Repair  at  a  unit  involves  a 
portable  repair  capability  with  a  specified  capacity  in  terms  of  the  numbers  of  items  which  can  be  under 
repair  at  any  given  time.  A  CT  consists  of  maintenance  personnel  deployed  from  the  seabase  to  repair  items 
ashore.  There  are  two  types  of  CT:  nondedieated  and  dedicated.  Nondedicated  CT’s  are  an  integral  part  of 
the  seabase  work  force.  When  repair  ashore  is  completed,  the  nondedicate  CT  is  transported  back  to  the  shop 
at  the  seabase.  Dedicated  CT’s  are  not  responsible  for  maintenance  at  the  seabase.  When  repair  is  completed 
ashore,  a  dedicated  CT  is  transported  to  a  nearby  unit  to  await  reassignment  elsewhere. 

If  an  item  is  to  be  repaired,  but  maintenance  resources  are  not  available,  the  failed  end  item  is  placed 
in  an  appropriate  queue  to  await  repair.  There  are  four  kinds  of  queues:  afloat  in  the  seabase,  ashore  waiting 
to  go  to  the  seabase,  ashore  waiting  for  a  CT,  or  ashore  at  one  of  the  units. 

Thus  seabase  repair  spaces  have  two  repair  queues,  one  afloat  and  the  other  ashore.  When  the  number 
of  items  in  the  queue  afloat  has  research  a  specified  upper  limit,  end  items  failing  ashore  will  be  routed  first  to 
the  queue  ashore,  and  then  will  be  transferred  to  the  seabase  queue  afloat  when  a  space  becomes  available. 

The  items  waiting  in  the  CT  repair  queue  are  not  taken  to  a  central  location.  When  an  item  fails,  it  remains 
at  the  unit  but  is  considered  part  of  the  CT  queue. 

3.0  THE  SIMULATION  PROCESS 

The  SMLS  Maintenance  Optimization  Model  continuously  simulates  the  failure  and  subsequent  repair 
of  the  various  items  which  are  used  ashore  by  a  Marine  Corps  Landing  Force.  These  items  are  derived  from 
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the  tabic  of  equipment  (T/E)  of  a  Marine  Amphibious  Unit  (MAU).3  Figure  1  indicates  a  time-line  graph  of 
a  generalized  failure/repair  cycle.  This  type  of  a  time-line  graph  is  simulated  for  each  item  in  the  Landing 
Force. 


TT7  2  TTR 

TIME  - ► 


Figure  1.  Failure/Repair  Cycle  of  an  Item 

Assume  the  intervals  to  have  the  following  values: 

TTF  =  tj  -  tQ  time  interval  before  failure 

TTj  =  t2  -  tj  time  interval  required  for  transport 

TTR  =  t3  -  t2  time  interval  required  for  repair 

TT2  =  t4  -  t3  time  interval  required  for  transport 

In  the  computer  application,  TTF  is  generated  from  an  algorithm  which  is  a  function  of  the  item’s  mean  time 
between  failures  (MTBF)  and  its  utilization  factor  (the  length  of  time  the  item  is  required  to  operate  during  a 
24-hour  period).  TTR  is  generated  from  an  algorithm  which  is  a  function  of  the  item’s  mean  time  to  repair 
(MTTR). 

At  time  t0,  an  item  begins  operating  ashore  during  a  time  interval  of  TTF.  An  item  failing  at  t ^ 

(i.e. ,  tQ  +  TTF)  will  either  be  repaired  at  the  seabase,  at  a  unit,  or  by  a  CT;  or  it  will  be  discarded  depending 
on  the  repair/replace/discard  decision.  If  the  item  is  to  be  repaired,  TTR  denotes  the  repair  interval.  The 
interval  t^  -  t}  denotes  the  time  interval  required  to  transport  the  failed  end  item  to  the  seabase  or  to  the 
unit  for  repair.  If  the  item  is  to  be  repaired  by  a  CT,  this  interval  denotes  the  time  interval  required  to  trans¬ 
port  a  CT  to  the  item.  The  variable  t3  indicates  the  time  at  which  repair  is  completed.  If  the  item  has  been 
repaired  at  the  seabase  or  at  a  unit,  it  is  then  transported  to  the  using  unit,  arriving  at  t4.  The  interval  t4  -  t3 
represents  the  needed  transportation  time.  If  the  item  does  not  need  transportation  (i.e.,  if  the  item  was  re¬ 
paired  by  a  CT)  then  t4  -  t^  =  0.  At  t4  the  item  is  operational  and  can  fail  again;  i.e.,  that  failure/repair 
cycle  is  continued  for  the  item  over  the  entire  mission. 

The  scheduling  of  failures,  arrivals,  and  repairs  form  the  basis  for  the  Maintenance  Optimization  Model. 
In  order  to  simulate  on  a  digital  computer  the  real-world  situations  of  the  failure/repair  cycles  and  to  trace 
the  failures,  arrivals,  and  repairs  of  each  of  the  items  in  the  Marine  Corps  Landing  Force,  the  concept  of 
“event”  is  utilized. 
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3.1  DEFINITION  OF  EVENT 


The  requirement  for  a  specific  condition  (such  as  that  an  item  be  operational,  an  item  or  CT  be 
transported,  or  an  item  be  repaired)  triggers  the  scheduling  of  an  event  which  occurs  at  a  later  time.  The 
event  is  said  to  have  occurred  when  the  condition  has  been  fulfilled  (i.e.,  the  item  fails,  the  item  or  CT 
arrives  at  destination,  or  the  item  is  repaired  when  the  appropriate  scheduling  time  has  elapsed)  at  which  time 
decisions  for  subsequent  action  are  made. 

The  major  events  in  the  failure/repair  cycle  are: 

•  failure  of  item 

•  arrival  of  item  or  CT  at  destination 

•  repair  of  item 

The  Maintenance  Optimization  Model  simulates  failure/repair  cycles  by  incorporating: 

•  fail  events,  to  represent  item  failures 

•  arrival  events,  to  represent  items  or  CT’s  arriving  at  their  destination 

•  complete  service  events,  to  represent  completion  of  item  repairs 

A  fourth  event  which  is  used  in  the  Model,  but  which  is  not  involved  in  the  failure/repair  cycle,  is  explained 
in  the  description  of  Subroutine  QULENTH  (Section  6.16). 

The  event -generation  process  may  be  illustrated  by  a  requirement  for  an  item  to  be  operating  ashore. 
This  requirement  generates  a  fail  event  which  occurs  at  a  later  time.  The  item  remains  operational  from  the 
time  it  begins  operation  ashore  to  the  time  of  the  failure  event.  When  the  item  fails,  a  decision  is  made  as  to 
whether  the  item  is  to  be  repaired  at  the  seabase,  at  the  unit,  or  by  a  CT;  or  if  it  is  going  to  be  discarded.  In 
another  example,  there  is  a  requirement  for  a  filed  item  to  be  transported  to  a  maintenance  location.  This 
requirement  generates  an  arrival  event  which  occurs  at  a  later  time.  The  item  is  in  the  process  of  being  trans¬ 
ported  from  the  time  the  transportation  is  made  available  to  the  time  the  item  arrives  at  its  destination.  When 
the  item  arrives  at  the  maintenance  location,  a  decision  is  made  as  to  whether  the  item  will  be  repaired 
immediately  or  whether  it  will  be  added  to  the  queue.  The  requirement  for  a  failed  item  to  be  repaired 
generates  a  complete  service  event  which  occurs  at  a  later  time.  The  item  is  under  repair  from  the  time  repair 
is  started  until  the  event  of  item  repair  occurs.  When  the  item  is  repaired,  a  decision  is  made  as  to  whether 
the  item  is  required  ashore  or  whether  it  is  to  be  sent  to  the  float. 

3.2  SCHEDULING  OF  EVENTS 

The  large  number  of  events  which  are  scheduled  in  the  model  during  the  simulation  of  failure/repair 
cycles  for  the  items  in  a  Marine  Corps  Landing  Force  require  a  bookkeeping  system.  This  system  consists  of 
an  event  list  and  operations  which  (1)  store  events  on  the  list  as  they  are  generated  and  (2)  remove  events 
from  the  list  systematically  throughout  the  failure/repair  cycles. 

The  event  list  refers  to  the  locations  in  the  computer  used  to  store  events  generated  during  the  failure/ 
repair  cycle.  Along  with  each  event  is  stored  the  time  at  which  it  will  occur*  and  its  description.  The  events 

*For  fail  and  complete  service  events,  average  times  are  input  and  individual  values  are  based  on  Monte  Carlo  choices  from 
exponentially  distributed  times  around  these  means;  times  for  transportation  events  are  input  directly. 
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arc  arranged  on  the  list  by  their  simulated  occurrence  times.  The  event  which  will  occur  earliest  is  stored  in 
the  first  location  of  the  event  list;  the  event  with  the  next  earliest  occurrence  time  is  stored  in  the  second 
location,  and  so  on. 

Subroutine  SNE  performs  the  function  of  storing  events  on  the  event  list.  An  event  is  simulated 
simply  by  the  act  of  removing  the  event  from  the  event  list.  Removal  begins  at  the  first  location  of  the  event 
list.  Subroutine  TNE  performs  the  function  of  removing  events  from  the  event  list.  The  appropriate  sub¬ 
routine  is  then  entered,  as  indicated  here,  to  perform  subsequent  actions  due  to  the  simulation  of  the  event: 
Subroutine  FAIL,  for  a  fail  event 
Subroutine  ARRVL,  for  an  arrival  event 
Subroutine  COMPS,  for  a  complete-service  event. 

For  example,  removing  a  fail  event  from  the  list  simulates  an  item  failure  at  that  time.  Subroutine  FAIL  is 
then  entered  to  determine  whether  the  item  is  replaced  and  repaired,  repaired  and  returned  to  use  without 
replacement,  or  replaced  and  discarded.  (See  Section  3.1  for  more  examples). 

The  simulation  of  failure/repair  cycles  by  scheduling  events  throughout  the  mission  duration  is  referred 
to  as  a  simulated  mission.  During  each  simulated  mission,  various  statistics  are  compiled  to  describe  the  failure 
and  repair  operations  that  have  taken  place.  In  the  model,  a  number  of  these  simulated  missions  (approxi¬ 
mately  50)  are  run  and  the  statistics  are  averaged  at  the  end  of  all  of  the  runs. 

A  “clock”  internal  to  the  model  records  the  time,  in  hours,  of  each  simulated  mission.  The  time  at 
the  start  of  each  mission  is  referred  to  as  MISSION  START.  For  this  application,  MISSION  START  equals 
zero.  Each  time  an  event  is  removed  from  the  event  list,  the  clock  is  updated  to  the  event’s  occurrence 
time.  The  procedure  of  storing  and  removing  events  and  processing  subsequent  actions  for  the  event 
continues  until  the  clock  surpasses  MISSION  END. 

At  the  start  of  a  mission,  all  end  items  are  considered  fully  operational  at  their  units  ashore.  Initial 
fail  events  for  all  the  end  items  in  the  Landing  Force  are  simulated  by  generating  successive  time  intervals  of 
operation  before  failure  (TTF)  for  all  of  the  items.  The  generation  of  the  initial  failures  is  performed  in  Sub¬ 
routine  SIE.  After  each  initial  failure  is  generated,  subroutine  SNE  is  called  to  store  the  fail  event  list  accord¬ 
ing  to  the  end  item’s  TTF.  The  fail  event  for  the  item  with  the  earliest  TTF,  called  TTFj ,  is  stored  in  the 
first  location  on  the  event  list,  the  fail  event  for  the  item  with  the  next  earliest  TTF,  called  TTF2,  is  stored  in 
the  second  location  and  so  on.  When  all  the  fail  events  (one  for  each  item  in  the  LF)  have  been  stored  on  the 
event  list,  the  simulated  mission  begins.  Subroutine  TNE  is  called  to  start  the  simulation  process  by  removing 
the  event  in  the  first  location  on  the  list  (at  MISSION  START  this  will  be  a  fail  event)  since  it  has  the  earliest 
occurence  time  of  TTFj.  The  clock  is  updated  to  time  TTFj.  If  the  clock  time  is  later  than  time  MISSION 
END,  the  simulated  mission  is  ended.  If  the  clock  time  is  less  than  or  equal  to  MISSION  END,  the  item  with 
time  to  failure,  TTFj,  is  considered  inoperable  and  Subroutine  FAIL  is  entered  to  determine  whether  this 
failed  item  will  be  discarded  and  replaced,  repaired  and  replaced,  or  just  repaired  according  to  decisions  and 
information  read  in  to  the  model.  Other  events  stemming  from  this  decision  which  may  be  generated  to  occur 
at  a  later  point  in  the  simulation  time,  are  stored  on  the  event  list  by  subroutine  SNE  according  to  their  simu¬ 
lated  occurrence  times.  For  example,  suppose  the  failed  item  is  to  be  transported  to  the  seabase  for  repair. 

An  input  to  the  model  is  the  transportation  time,  TRANS,  required  to  transport  the  item  from  the  unit  ashore 
to  the  seabase.  Hence,  an  arrival  event  at  the  seabase  will  occur  at  time,  TTFj  +  TRANS.  The  arrival  event 
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is  stored  on  the  event  list  by  calling  Subroutine  SNE.  Suppose  the  failed  item  is  to  be  replaced  by  a  float  item 
and  time,  TRANS,  is  required  to  transport  the  replacement  item  from  the  float  at  the  seabase  to  the  unit 
ashore.  A  time  interval  to  failure,  TTFR,  is  generated  for  this  replacement  item.  Hence  the  item  begins  opera¬ 
tion  in  the  landing  force,  and  a  fail  event  will  occur  for  this  item  at  time,  TTFj  +  TRANS  +  TTFR .  The  fail 
event  is  stored  on  the  event  list  by  calling  Subroutine  SNE.  Control  of  the  program  is  returned  to  Subroutine 
TNE  which  removes  the  new  event  from  the  first  location  on  the  list.  Removing  events  from  the  event  list, 
updating  the  clock  by  the  occurrence  time  of  the  event,  and  the  actual  occurrence  of  the  event  removed 
continue  until  the  clock  time  surpasses  time  MISSION  END.  Figure  2  is  a  flow  chart  summarizing  this  process. 

3.3  MEASURES  OF  EFFECTIVENESS 

The  events  mentioned  simulate  the  failures  and  repairs  of  each  end  item  in  the  Landing  Force  through¬ 
out  the  mission.  During  this  simulation  process,  the  total  time  that  each  item  is  operating  and  the  total  time 
each  item  is  non -operational  are  recorded.  From  this  information  a  measure  of  effectiveness,  the  availability 
of  the  end  items  in  the  Landing  Force,  is  computed.  The  availability  represents  the  percentage  of  the  mission 
time  that  the  end  items  are  operational  and  available  for  use. 

When  items  fail  and  repair  is  required,  they  will  be  scheduled  for  repair  at  one  of  the  locations  of 
maintenance,  i.e.,  the  seabase,  unit,  or  by  CT.  A  record  is  kept  at  each  location  of  the  times  that  items  enter 
and  leave  the  queues  and  of  the  repair  times  of  the  items.  From  this  information  measures  of  effectiveness 
(utilization  statistics  at  each  location  of  maintenance)  are  determined.  These  utilization  statistics  indicate  the 
percent  of  the  mission  time  that  each  location  of  maintenance  is  occupied  performing  maintenance. 

4.0  INPUT 

The  input  to  the  program  is  read  from  cards  and  from  a  tape.  Information  on  the  landing  force  and 
the  maintenance  system  configuration  is  input  on  cards.  Figure  3  shows  the  input  data  setup.  Subroutines 
TITLE  and  INPUT  instruct  the  computer  to  read  the  information  from  the  cards.  Information  on  item 
characteristics  is  input  on  tape.  Subroutine  RETRIEV  instructs  the  computer  to  read  this  information.  See 
Section  6.4  for  a  listing  of  the  variables  on  the  tape. 

Table  1  describes  the  variables  read  in  by  Subroutines  TITLE  and  INPUT.  The  variables  read  in  by 
the  same  READ  statement  are  listed  in  the  table  under  a  single  card  number.  The  variables  listed  under 
Cards  1  through  5  are  read  in  by  Subroutine  TITLE  and  are  used  for  all  the  commodity  classes*  as  defined  in 
the  Table  of  Authorized  Material.4  The  variables  listed  under  cards  6  through  1 1  are  read  in  by  Subroutine 
INPUT  and  are  used  for  a  specific  class  (submitted  by  Card  7).  Cards  6  through  1 1  are  repeated  for  each 
class  given.  Table  2  lists  the  variables  by  their  card  number  and  card  column  number  and  gives  the  required 
format. 


*A11  USMC  end  items  are  categorized  as  belonging  to  one  of  five  commodity  classes:  Communications  and  Electronics, 
Engineer,  Motor  Transport,  Ordnance,  and  General  Supply.  General  Supply  end  items  are  not  considered  in  this  model, 
since  they  do  not  require  maintenance. 
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/  IS  THE  N 
EVENT  REMOVED 
A  COMPLETE 
.  SERVICE  ^ 
\  EVENT?  / 


CALL 

SUBROUTINE 

COMPS 


^  IS  THE  ^ 
EVENT  REMOVED 
AN  ARRIVAL 
^  EVENT?  y 


CALL 

SUBROUTINE 

ARRVL 


Figure  2.  Flow  Chart  of  the  Event  List  Process 


J 


9 


TABLE  1  -  DESCRIPTION  OF  INPUT  VARIABLES 


VARIABLE  NAME  DESCRIPTION 

Card  1: 

DATE1  Date  program  submitted.  The  use  of  two  consecutive  variables  allows 

DATE2  for  a  maximum  alphanumeric  field  of  20  characters. 

Card  2:  Each  of  the  following  arrays  (NPRR2,  NPRR3,  NPRR4)  uses  the  subscript  j,  where  j  =  1 

through  4,  to  indicate  the  commodity  class  (1  indicates  Communications/Electronics, 

2  indicates  Engineer,  3  indicates  Motor  Transport,  4  indicates  Ordnance). 

NPRR2(j)  Total  number  of  personnel  in  commodity  class  j  required  for  2nd- 

echelon  repair. 

NPRR3(j)  Total  number  of  personnel  in  commodity  class  j  requried  for  3rd- 

echelon  repair. 

NPRR4(j)  Total  number  of  personnel  in  commodity  class  j  required  for  4th- 

echelon  repair. 

Card  3: 

GT1ME  Mission  length  in  hours;  i.e.,  time  interval  from  MISSION  START  to 

MISSION  END. 

TIMEINT  Time  interval  in  hours  for  sampling  statistics  (see  Section  6.16). 

NMI  Number  of  simulated  missions. 

LIMDIM  Represents  both  maximum  number  of  items  that  can  be  queued  at  one 

time  and  maximum  number  of  requests  for  float  items  by  units  at  one 
time.  Presently  LIMDIM  =  200.  To  increase  the  value  of  LIMDIM 
beyond  200,  dimensions  of  the  following  arrays,  located  in  COMMON 
statements  /N3/  and  /N5/,  must  be  changed:  NTRQST,  NURQST, 
TIRQST,  ICTQ,  ISQ,  ISQA,  IUQ,  NPISQ,  NPISQA,  NUICTQ,  TICTQ, 
TISQ,  TISQA,  TIUQ,  NESQ,  NESQA,  NEUQ,  and  NECTQ. 

T1  Transportation  time,  in  hours,  between  shore  and  seabase  (a  constant). 

T2  Transportation  time,  in  hours,  between  any  two  positions  ashore 

(a  constant). 

IECHAV(i)  Indicates  ith-echelon  repair  availability  at  the  seabase;  i  =  2  through  5. 

IECHAV(i)=l  ith-echelon  repair  is  available 

IECHAV(i)=0  ith-echelon  repair  is  not  available 

Note:  i=5  indicates  that  the  item  is  either  discarded  or  stored. 

First  write -option  indicator. 

IOPTl=l  All  explanatory  write  statements  printed  out 
IOPT1=0  No  printing  (IOPT2  and  IOPT3,  defined  below,  must  be 
set  to  0) 

Second  write -option  indicator. 

IOPT2=l  Depending  on  the  situation,  an  entire  queue  array  will  be 
printed  out  when  an  item  is  added  to  the  queue,  or  an 
entire  request  array  will  be  printed  out  when  a  request 
is  made 


IOPT1 


IOPT2 
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TABLE  1  -  DESCRIPTION  OF  INPUT  VARIABLES  (continued) 


VARIABLE  NAME 
Card  3  (continued): 
IOPT2 

IOPT3 


IDMAU 


Card  4: 

PF(i) 

PCTR(i) 

IDCT 


Card  5: 

MTTR2 

MTTR3AU 

MTTR3CT 

MTTR4 

Card  6: 

CONTROL 


Card  7: 

NUNIT 

NOTYPE 

NSS 

NCTS 


DESCRIPTION 


IOPT2=0  Depending  on  the  situation,  either  the  location  in  queue 
where  an  item  is  added  will  be  printed  out  or  only  the 
request  just  made  will  be  printed  out 

Third  write-option  indicator. 

IOPT3=l  One  of  the  following  arrays  will  be  printed  out:  a)  entire 
queue  array  when  an  item  is  removed;  b)  entire  queue 
array  when  the  priority  of  an  item  is  changed;  c)  entire 
request  array  when  a  request  is  fulfilled.  Usually  used  for 
debugging  purposes. 

IOPT3=0  No  printing 

Landing  Force  descriptor. 

IDMAU=1  34th  MAU  (see  NSRDC  Report  41661) 

IDMAU  =2  Notional  MAU 


Percentage  of  item  failures  at  the  ith  echelon;  i=2  through  5. 

Percentage  of  items  repaired  by  a  CT  requiring  ith-echelon  repair; 
i-2  or  3. 

CT  requirement  indicator. 

IDCT=0  Repair  by  a  nondedicated  CT 
IDCT=1  Repair  by  a  dedicated  CT 
IDCT  =2  No  repair  by  CT 


Second -echelon  mean  time  to  repair. 

Third -echelon  mean  time  to  repair  for  items  repaired  at  the  seabase  or 
at  the  unit. 

Third -echelon  mean  time  to  repair  for  items  repaired  by  CT 
Fourth-echelon  mean  time  to  repair. 


Alphanumeric  input  indicator. 

CONTROL=STOP  End  of  input:  program  stops 
CONTROL^STOP  (i.e.,  any  4  alphanumeric  characters  other  than 
STOP)  input  data  for  another  class  follows 

Number  of  units  in  the  Landing  Force  having  items  of  the  class  defined 
by  variable  CLASS  below. 

Number  of  different  types  of  items  in  this  class  (i.e.,  number  of  different 
TAM  numbers). 

Number  of  repair  spaces  at  the  seabase. 

Total  number  of  Contact  Teams  available. 


11 


TABLE  1  -  DESCRIPTION  OF  INPUT  VARIABLES  (continued) 


VARIABLE  NAME 


DESCRIPTION 


Card  7  (continued): 
NUS 
LIMIT 

CLASS 


Total  maintenance  capacity  of  each  unit. 

Maximum  number  of  items  allowed  in  the  seabase  queue  afloat  at  one 
time  (must  be  <LIMDIM). 

Indicator  of  commodity  class  to  be  run. 

CLASS=1  Communications/Electronics 

CLASS=2  Engineer 

CLASS=3  Motor  Transport 

CLASS=4  Ordnance 


Card  8:  Insert  one  card  8  for  every  4  units. 

UNAME(i,l),  Identification  name  of  unit  number  i  in  the  Landing  Force; 

UNAME(i,2)  through  NUNIT.  Unit  numbers  are  arbitrary.  The  use  of  two  consecu¬ 

tive  variables  allows  for  a  maximum  alphanumeric  field  of  20  characters. 

Card  9: 


IEAU(ij)  Indicates  whether  or  not  unit  number  j  has  ith-echelon  repair  capability; 

i=2  or  3,  and  j=l  through  NUNIT. 

IEAU(ij)=l  Unit  number  j  has  ith-echelon  capability 
IEAU(k,j)=0  Unit  number]  does  not  have  ith-echelon  capability 


Card  10: 

NDSC(i) 


Indicates  decrease  in  repair  capability  at  the  seabase  due  to  the  depar¬ 
ture  of  the  ith  nondedicated  CT;  i=l  through  5. 


NPS 


Number  of  times  repair  capability  at  the  seabase  is  not  decreased  due  to 
nondedicated  CT’s  leaving  (computed  from  variable  NDCS(i)). 


Card  11:  Insert  one  card  1 1  for  each  different  type  of  item  (i.e.,  each  different  TAM  number)  in 
the  Landing  Force.  The  total  number  of  these  cards  equals  NOTYPE. 


TAMNO(i) 

MAUIDO) 

NFI(i) 

NUTNAI 

UNITNO(k); 
k=l  through 
NUTNAI 

UNITDEN(k) 


ith  different  TAM  number.  This  array  is  set  up  in  alphanumeric  order 
from  A0000  through  Z9999. 

Number  of  items  with  TAM  number  TAMNO(i). 

Initial  number  of  float  items  with  TAM  number  TAMNO(i). 

Number  of  units  ashore  which  possess  items  with  TAM  number  TAMNO(i) 

List  of  units,  by  ID  number,  which  contain  items  with  TAM  number 
TAMNO(i). 

Total  number  of  items  with  TAM  number  TAMNO(i)  located  at  unit 
number  UNITNO(k); 


Note:  Throughout  this  report  the  notation  i=a,b  will  be  used  to  represent  the  range  that  integer  variable 
i  will  assume  between  the  limits  a  and  b,  i.e.,  a  <  i  <  b. 
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TABLE  2  -  INPUT  DATA  FORMAT 


VARIABLE  NAME  COLUMN  FORMAT 

Card  1: 

DATE1 
DATE2 

Card  2: 

NPRR2(j),  j=l,4 
NPRR3(j),  j=l  ,4 
NPRR4(j),  j=l  ,4 

Card  3: 

GTIME 
TIMEINT 
NMI 
LIMDIM 
T1 
T2 

IECHAV(i),  i=2,5 
IOPT1 
IOPT2 
IOPT3 
IDMAU 


Card  4: 


PF(i),  i=2,5 

1-12 

4F3.; 

PCTR(i),  i=2,3 

13-18 

2F3.: 

IDCT 

19 

11 

Card  5: 

MTTR2 

1—5 

F5.2 

MTTR3AU 

6-10 

F5.2 

MTTR3CT 

11-15 

F5.2 

MTTR4 

16-20 

F5.2 

Card  6: 

CONTROL 

1-4 

A4 

Card  7: 

NUNIT 

1-2 

12 

NOTYPE 

3-4 

12 

NSS 

5-6 

12 

NCTS 

7-8 

12 

NUS 

9-10 

12 

LIMIT 

11-12 

12 

CLASS 

13-14 

12 

1-4 

411 

6-9 

411 

11-14 

411 

1-5 

F5.0 

6-8 

F3.0 

9-11 

13 

12-14 

13 

15-17 

F3.1 

18-20 

F3.1 

21-24 

411 

25 

11 

26 

11 

27 

11 

28 

11 

1-10  A10 

11-20  A10 
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TABLE  2  -  INPUT  DATA  FORMAT  (continued) 


VARIABLE  NAME 


Card  8: 


UN  AM  E(i ,  1 )  ,UN  AM  E(i  ,2) 

UNAME(NUNIT,1),UNAME(NUNIT,2) 

Card  9: 


(IEAU(ij),  j=l  ,NUNIT),  i=2,3 

Card  10: 

NDCS(i),  i=l,5 
NPS 


Card  11 : 


TAMNO(i) 

MAUIIXO 

NFl(i) 

NUTNAI 

UNITNO(k),  k=l, NUTNAI 
UNITDEN(k),  k=l, NUTNAI 


COLUMN  FORMAT 

1-20  A10.A10 


A10,  A10 


1-  (2*NUNIT)I1 

1-5  511 

6  11 


1-5 

6-8 

9-10 

11-12 

13- 


A5 

13 

12 

12 

NUTNAPI2 
NUTNAI*!  2 


5.0  SUMMARIZATION  OF  SUBROUTINES 

Brief  descriptions  are  provided  here  of  all  the  subroutines  in  the  program.  These  20  subroutines  are 
discussed  in  the  order  that  they  are  used  in  the  program.  Section  6  describes  the  subroutines  in  more  detail. 


-SUBROUTINE  TITLE— 

Reads  input  data  common  to  all  commodity  classes. 


-SUBROUTINE  INPUT- 

Reads  the  input  data  for  a  given  class. 


-SUBROUTINE  RETRIEV— 

Reads  characteristics  for  all  the  items  in  a  given  class. 


-SUBROUTINE  TSEQ12- 

Determines  number  of  tool  sets,  kits,  and  special  equipment  required  at  the  seabase  and  at 
the  units  for  the  repair  of  items  in  the  Communications/Electronics  class  or  the  Engineer  class. 
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—SUBROUTINE  TSEQ3- 

Determines  for  the  Motor  Transport  class:  a)  number  of  items  which  require  2nd -echelon 
repair  at  the  seabase  and  at  the  units;  b)  locations  for  3rd-  and  4th-echelon  repairs; 
c)  number  of  items  with  a  Tam  number  of  D1 100,  D1 160,  or  D0860  which  require  2nd- 
echelon  repair  at  the  seabase;  and  d)  whether  an  item  with  Tam  number  of  D1 100,  D1 160, 
or  D0860  will  require  3rd  -  or  4th- echelon  repair  at  the  seabase. 

-SUBROUTINE  TESTEQ- 

Determines  number  of  tool  sets,  kits,  and  special  equipment  required  at  the  seabase  and  at 
the  units  for  the  repair  of  items  in  the  Motor  Transport  class. 

-SUBROUTINE  INITIAL— 

This  subroutine  initializes  variables  internal  to  the  program. 

-SUBROUTINE  SIE- 

Generates  initial  fail  events  for  every  item  in  the  Landing  Force.  Generates  initial  event  to 
update  variables  LENTHQ  and  LENTHC.  Initializes  internal  variables. 

-SUBROUTINE  SNE- 

Stores  events  as  they  are  generated  on  the  event  list. 

-SUBROUTINE  TNE— 

Removes  the  event  from  Location  1  of  the  event  list  and  transfers  control  of  the  program  to 
an  appropriate  subroutine.  (FAIL,  COMPS,  ARRVL,  or  QULENTH) 

-SUBROUTINE  FAIL— 

Determines  whether  a  failed  item  will  be  discarded;  or  repaired  at  the  seabase,  at  the  unit,  or 
by  a  CT. 

-SUBROUTINE  REQUST— 

Determines  whether  a  float  item  is  available.  Assigns  priority  of  the  failed  item. 

-SUBROUTINE  ARRVL— 

The  input  parameter  which  indicates  the  type  of  arrival  event  that  has  occurred  determines 
which  of  the  following  events  will  take  place  when  this  subroutine  is  called: 

•  When  an  item  arrives  at  the  seabase,  the  array  of  variables  which  indicate  the  availa¬ 
bility  of  repair  spaces  will  be  examined  to  determine  whether  the  item  will  be  repaired 
immediately  or  added  to  the  queue. 
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•  When  a  nondedicated  CT  arrives  at  the  seabase,  the  variable  which  indicates  the  number 
of  items  in  the  CT  queue  will  be  examined  to  determine  whether  the  CT  is  required 
ashore  or  will  remain  at  the  seabase. 

•  When  an  item  arrives  at  the  seabase  queue  ashore,  the  variable  which  indicates  the 
number  of  items  in  the  queue  afloat  will  be  examined  to  determine  whether  the  item 
will  be  transported  to  the  seabase  or  added  to  the  queue  ashore. 

•  When  a  dedicated  CT  arrives  at  a  unit  ashore,  the  variable  which  indicates  the  number 
of  items  in  the  CT  queue  will  be  examined  to  determine  whether  the  CT  will  repair  an 
item  or  remain  at  the  unit. 

—SUBROUTINE  COMPS- 

The  input  parameter  which  indicates  the  type  of  complete  service  event  that  has  occurred 

determines  which  of  the  following  events  will  take  place  when  this  subroutine  is  called: 

•  When  repair  of  an  item  is  completed  at  the  seabase,  the  array  of  variables  which  indi¬ 
cate  the  items  required  by  units  ashore  is  examined  to  determine  whether  the  item 
will  be  transported  to  a  unit  or  added  to  the  ORF. 

•  When  repair  of  an  item  is  completed  by  a  nondedicated  CT,  a  time-to-failure  for  the 
repaired  item  is  generated  and  the  item  resumes  operation. 

•  When  repair  of  an  item  is  completed  at  a  unit,  a  time-to-failure  for  the  repaired  item 
is  generated  and  the  item  resumes  operation. 

•  When  repair  of  an  item  is  completed  by  a  dedicated  CT,  a  time-to-failure  for  the 
repaired  item  is  generated  and  the  item  resumes  operation. 

-SUBROUTINE  QULENTH- 

Updates  variables  LENTHQ  and  LENTHC. 

-SUBROUTINE  GENMT— 

ENTRY  GENTTF  -  Generates  a  time  interval  representing  the  length  of  time  an  item  will 
operate  at  a  unit. 

ENTRY  GENTTR  —  Generates  a  time  interval  representing  the  length  of  time  required  for 
repair. 

-SUBROUTINE  ENDMIS— 

Updates  variables  representing  output  statistics  after  the  completion  of  every  simulated 

mission. 

-SUBROUTINE  OUTPUT- 

Prints  out  statistics  at  the  completion  of  all  of  the  simulated  missions  for  a  given  class. 
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-SUBROUTINE  RITE- 

ENTRY  R1TERQ  —  Prints  out  arrays  which  record  requests  for  float  items. 

ENTRY  RITESQ  —  Prints  out  arrays  which  record  the  items  in  the  seabase  queue  afloat. 

ENTRY  RITSQA  —  Prints  out  arrays  which  record  the  items  in  the  seabase  queue  ashore. 

ENTRY  RITCTQ  -  Prints  out  arrays  which  record  the  items  in  the  CT  queue. 

-SUBROUTINE  RITEUQ- 

Prints  out  arrays  which  record  the  items  in  the  unit  queue. 
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6.0  DETAILED  PROGRAM  DESCRIPTIONS 

The  Maintenance  Optimization  Model  was  written  for  operation  on  the  CDC  6400  computer  under 
the  Scope  Operating  System,  Version  3.3  (FORTRAN  IV).  Presently  the  program  will  handle  as  many  as 

•  10  shore-based  units 

•  150  different  types  of  items  in  the  Landing  Force 

•  30  different  types  of  items  in  each  unit. 

Figure  4  illustrates  the  arrangement  of  the  deck.  The  Control  cards  used  are  discussed  in  Appendix  B. 
The  letters  EOR  refer  to  an  end-of-record  card  which  is  defined  by  punching  the  numbers  7,  8,  and  9  in 
Card  Column  1.  The  letters  EOF  refer  to  an  end-of-file  card  which  is  defined  by  punching  the  numbers  6, 

7,  8,  and  9  in  Card  Column  1.  Section  6.1  describes  the  Executive  Routine.  Sections  6.2  through  6.21 
describe  the  individual  subroutines  in  detail.  Each  section  contains  a  listing  of  the  subroutine  being  described. 
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6.1  EXECUTIVE  ROUTINE 


The  Executive  Routine  calls  subroutines  that 

•  read  the  input  data 

•  determine  the  maintenance  equipment  required 

•  start  the  simulation  process 

•  print  the  output  statistics 

Figure  5  summarizes  the  logic  flow  of  the  Executive  Routine. 


PROGRAM 


MAIN 


PROGRAM  MA  IN  <LMAUE  I,  TSEQ,  INPUT,  OUTPUT,  TAPE1  =  TSECI,  TAPE  5  =  1  NPUT, 

1  TAPE6*0UTPUT,TAPE2) 

INTEGER  CLASS 

COMMON/N1/GTIME, IECMAV<5> , NOT YPE , NUN  I T , IOCT.NMI, KM  I, I E AU ( 3 , 1 u > 
5  1  ,PCTR<3> ,PF(5), CLASS 

CALL  TITLE 
DO  2  NRUNS  =  1 ,10  0 
CALL  INPUT 
REWIND  1 

13  IF1CLASS. EQ.l. OR. CLASS. EQ.2JCALL  TSEQ12 

IF(CLASS.EQ.3)CALL  TSEQ3 
CALL  INITIAL 
00  1  KMI=1 , NM I 
CALL  SIE 

15  CALL  TNE 

CALL  ENDMIS 

1  CONTINUE 
CALL  OUTPUT 

2  CONTINUE 

20  END 
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Figure  5.  Flow  Chart  of  the  Executive  Routine 
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SUBROUTINE  TITLE 


Called  By:  Executive  Routine 


Abstract: 

This  subroutine  reads  the  input  variables  common  to  all  of  the  commodity  classes.  These  variables 
defined  in  Section  4.0. 


SUB  POUT  INF 


TITLr 


C  DC  663  D  FTN  V3.0-P308  OPT  =  l  04/11/73  16.  03,12. 


6 


10 


15 


20 


?  5 


30 


35 


4  C 


45 


50 


55 


SUBPOUT INE  TITLE 

PEAL  MTTR?,MTTR?AU,MTTR3CT,MTTF4 

COMMON /Nl/GTIME, IECHAV(5> , NOT Y PE , NUNI T , I  DC T , NM I , KMl ,IEAU< 3,13) 

1  ,PCTR(3)  ,PF(5)  , CLASS 

CCMMON/N4/MTBF (150>,UF(150) , MT TR2 , MTT R3 AU , HTT R 3C T , M TTP4 

COMMON /N6/LIM0IM,LIM IT, Tl,T2, I CPT1 , IOPT2 , 1  OPT  3 

COMMON /N7/CTH ( 15  0,10)  ,HOE( 13) , HW IQ ( 1 3 ) ,LENTHC ( 1 3 )  , LENTHQ( 13) * 

1  MAXOl  (13) ,NENTER(13)  ,  Old  3 )  ,  T  ORE  ( 13)  ,  MT  ( 1 31 ,  NOISC  ( 1 50  ,NOREQ(150> 
1  ,  HCT  W  ( 1  0  )  ,TCTEF<10>  ,HSSW(10) ,  TSSBF(IO) , TRTS , NIER < 13) ,IMAX0L(13) 

1  , INF  MR ( 13) ,TIMEINT,HUSW(10) , TUSBF(IO) # NOFAIL  1150 # 10) 
CCHM0N/N1Q/NPPR2 (4) ,NPRR3(4) f NPRP4(4) 

READ (5,6) OATE1 »DATE2 
6  cORM  A  T ( 2 A  1 0 ) 

PE  AD (5,1)  (NPRP  2 ( T ) ,1  =  1,4)  , ( NP9P3 ( I) , 1  =  1 , 4)  , (NPPR4(I)  ,1=1,4) 

1  FORMAT (3(411, IX)  ) 

REAO(5 ,2) GTIHE  ,TIMEINT,Nmi ,LIMDIM,T1,T2, (IECHAVCI) ,1  =  2,5)  ,IO°Tl, 

1  I0PT2,I0PT3,ICMAU 

2  FORMAT (F5.0,F3.P,I3,I3,F3. 1,F3 #1,811) 

READ (5,3)  (PF(I)  ,1  =  2,5) ,PCTP<2)  ,PCTR(3) ,IDCT 

3  FORMAT (6F3.2, I  1) 

READ (5 ,4) MTTR2 ,MT T R3 AU , MTTR3CT , MTT R4 

4  FORMA T ( 4F5.2) 

WRITE  (6,230) 

200  FORMAT (1H1,44X,42HNAVAL  SHIP  RESEARCH  AND  DEVELOPMENT  CENTER,//, 

1  5 ?X , 2 5H BETHES C A ,  MARYLAND  20  034) 

WRITF (6,201) 

201  FCRMAT  (////////// ,47X  ,  35HSMLS  MAINTENANCE  OPTIMIZATION  MOOEL,//,35 
1X,60MDEVELCPED  FOR  MARINE  COPPS  DEVELOPMENT  AND  EDUCATION  COMMAND, 
1  //, 55X,19HSMLS  PROJECT  OFFICE) 

WPITE  (6,?02)DATF1 ,0ATE2 

202  FORMAT (//////////, 45X , 3RHC0MPU T A T IONS  AND  MATHEMATICS  DEPARTMENT, 

1  // ,  5 5X , 2  A 1 0) 

WRITE (6, 203) 

203  F0PMAT(1H1  ,23X  ,71HTHE  MODEL  SIMULATES  OPERATION  AT  THE  MARINE  AMPH 
1TBI0UE  UNIT  (MAU)  L E VEL , // , 3 IX , 4 8HTHE  END  ITEM  CCNFIGURAT ION  IS  RE 
1PRESENTATIVE  OF  ) 

IF(IDMAU.EC.l) WRITE (6,204) 

IF(IDMAU.EC.2)WPITF (6,205) 

204  FCPMAT  (1H  +  ,79X  ,6H34TH  MAU) 

205  FORMAT ( 1H f,79X  ,12HNOTICNAL  MAU) 

WRITE  (6,206) 

206  FORMAT  (/,55X,10H*****,JM>**,/) 

WRITF  (6,208) 

208  p ORM A  T  (  41X  ,?7HMAINTENANCE  SPECIALIST  PERSONNEL  D ATA  , / // , 3 8 X , 

1  47HTCTAL  NUMPEF  CF  PERSONS  RECUIPED  TO  REPAIR  I TEM , // , 50 X , 7HE CHEL 
10N,HX,9H2  3  4) 

WRITE  (6,211) NPFP2 ( 1 ) ,NFPP3(1)  , NPRR4(1) 

211  FOPMAT ( /,43X,9HCOMM/ELEC, 16X, 3  (I1,3X) ) 

WRITE ( 6,210) NPRF2 (2) ,NFPP3(2) ,NPRR4<2) 

210  FORMAT (/,43X,8hfNGlNEER,l7X,3(Il,3X) ) 

WRITE  (6,209) NPRF2  (3)  ,NPRP3  (  3)  ,  KPRRM3) 

2  0  9  .  FORMAT (/ , 43X, 15HMCT0R  TP ANSPOR T , 1 3 X , 3 (I i , 3 X ) ) 

WRITE (6, 213) NPRP2 (4) ,NFRR3 (4) , NPRR4(4) 

213  FORMAT ( / , 43X, 8HORONANCF, 17X,  3(  11 ,3X)  ) 

WRITF (6,214) ( I ,1=1,5) 


* 


¥ 
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SUBROUTINE  TITLF 


CDC  6600  FTN  V3.3-P308  OPT*l  04/11/73  16.03.12, 


60 


65 


70 


75 


80 


85 


90 


214  FCRMAT(///,13X,84H0ECREASE  IN  SE ABASE  REPAIR  CAPABILITY  AS  C.T.'S 
tOEPAPT  (FOP  NOK-OEOICATFO  C.T.  ONLY) ,/,l3X ,56MN0TE  -  CAPABILI TY*NU 
1H6FR  CF  ITEMS  CAN  REPAIR  AT  ONE  TIME, //, 24X,32HT0TAL  C.T**S  ABSENT 
1  FROM  SEAf*ASE»6X,5(Il,3X)  ,/) 

WRITE (6,217) 

WRITE (6,216) 

WRITE (6,215) 

WRITE  (6,219) 

217  FORMAT (37X,9HCCMM/ELEC,16X,17HC  012  2,/) 

216  FORMAT ( 37x » 6HEKG INEER , 17X , 17H0  112  3,/) 

215  FORMAT <37X , 15 H MO TOR  TRANSPORT, 10X,l7M0  012  3,/) 

219  FORMAT  (3 7X ,  8HCP0NANCE ,  17X,17H0  112  3,/) 

WRITE (6,218)NMI,GTIME- 

218  F0RMAT(1H1,48X,23HMISSI0N  CHARACTERISTICS, //,  42X ,32MNUMBER  OF  SIMU 
1LATF0  MISSION  RUNS , 14, /,44X , 25HMISSI0N  DURATION  IN  HOURS, F7.0) 

WRITE  (6,206) 

WRITE(6,207)MTTP2»MTTR2,MTTR3AL, HTTR3CT , MTTR4 

207  FORMAT ( 37X , 47HRE P AIR  INTERVALS  (MEAN  TIME  TO  REPAIR)  IN  HOURS,//, 

1 17X , 2 8HA T  SEABASE  OR  ASHORE  AT  UNIT ,9X , 14H ASHORE  BY  C.T.,/,44X, 

1 3HECH  »3X,8HINTERVAL, 12X, 3HECH, 3X , 8HINTERVAL , / , 44X , 3H2N0, 5X ,F4 • 1, 

1  14X,3M2N0,5X,F4.1,/,44X,3H3R0,5X,F4.1,14X,3H3R0,5X,F4.1,/, 

1  44X, 3H4TH,5X ,F4.1) 

WPITF (6,206) 

A 1*2HK0 
A2=2HNC 
A3=2HN0 

IF(IFCHAV(2).£C.1)A1*3HYES 

IF(IECHAV(3).EC.1)A2*3HYES 

TF(IEChAV(4).EC.1)*3=3HY£S 

WRITE (6,212) ( P  F ( I ) ,1*2,5) ,PCTR (2 ) , PCTR ( 3 ) , A 1, A  2 , A3 

212  FORMAT (73X,7H2NO  ECH,3X,7H3R0  ECH,3X,7H4TH  ECH , 3X , 7HOISCARO , // , 

17X,59HFEPCFNTAGF  OF  ITEMS  THAT  FAIL  REQUIRING  THE  VARIOUS  ECHELON, 
18X,4(F4,2,6X) ,//,7X,64HPERCENTAGE  OF  ITEMS  REPAIREO  BY  CT  PEQUIRIN 
1G  THE  VARIOUS  ECHELON , 3X ,F4, 2 , 6X ,F4. 2 ,6X ,4H0 . 0 0 , 6X , 4M0 . 00 , //, 7X , 
131HIS  ECHELON  AVAILABLE  AT  SE A  BASE  ,  37X , 3 (A  3 , 7X ) ) 

WRITF (6,206) 

WRITE (6,243) T1 ,T2 

243  FORMAT <///,50X , 20 HTRANSPORT ATI CN  TIMES ,//, 48X , 14HSHI P  TO  SHORE*, 

1  F6. 2 , 4H  HRS,/,49X,15HSH0RE  TO  SHORE  * ,F5 . 2 , 4H  HRS) 

RETURN 

ENO 


I 
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6.3  SUBROUTINE  INPUT 


Called  By:  Executive  Routine 


Abstract: 

This  subroutine  reads  the  input  variables  for  the  particular  commodity  class  under  consideration.  These 
variables  are  defined  in  Section  4.0. 
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SUBROUTINE  INPUT 

INTEGER  TYPE NO, UN IT NO, UN IT DEN* CL ASS 
REAL  NT BP 

COMMON/Nl/GTIME *IECHAV(5) , NOTYPE » NUNIT , IDCT ,NMI, KMI, I EAU (3 , 10 > 

1  *PCT  R(3) *PF(5 ) « CLASS 
COMMON/ N2/NCTS*  NS S*  NUS 

C0HM0N/N3/INV (159) «NE 1(30, 10) «NFI (150 ) *NLIST (10) ,NR,NTRQST (200 ) , 

1  NURQST (200) , TIRQST (200 ), TYPENO (30,10 >, TAMNO (150) 

C0MM0N/N4/HTBF ( 150 ) ,UF (150 ) ,HTTR2 ,NTTR3AU ,HTTR3CT ,NTTR4 
C0MN0N/N6/LIN0IM, LINIT,T1,T2, IOPTl*IOPT2, I0PT3 
C0MN0N/N7/DTH (150,10) »HQE (13) ,HMIQ(13» , LENTHC( 13 1 »LENTHQ(13) , 

1  HAXQL (13) , RENTER (13) ,QL ( 13) , TQBE (13) ,HT(13) ,NOISC(150),NOREQ(150 ) 
1  , HCTM(IO) .TCTBFIIO) , HSSM (10) ,TSSBF(10) ,TRTS,NIER(13) , IHAXQL (13) 

1  * INENTR(13) , TIH£INT,HUSM(10) , TUSBF(IO) , NOFAIL (150, 10) 
C0MN0N/N9/NDCS(5) ,NPS 
COMMON/N10/NPRR2(4) ,NPRR3 (4) ,NPRR4(4) 

DIMENSION  MAU ID (150 ) , UNIT NO (10) ,UNITDEN (10 ) , SQ(150),CUBE(150), IUSP 
1(150) , EMB (150) , NOMEN (150, 7) ,UNAME(10,2) 

RE AO (5, 9) CONTROL 

9  FORMAT (A4) 

IF (CONTROL. EQ. 4HST0P) GOTOIOO 

RE AO ( 5, 1) NUNIT, NOTYPE ,NSS,NCTS, NUS, LIMIT, CL ASS 

1  FORMAT (712) 

RE AO ( 5,7) ( (UNAME ( I, J) ,J«1 ,2) ,1*1, NUNIT) 

7  FORMAT (8A10) 

RE  AO( 5, 10 )  (IEAU(2, I) ,1*1, NUN IT) , (IEAU(3,I) ,1*1, NUNIT) 

10  FORMAT (2011) 

READ (5 ,5) (NDCS(I) ,I«1,5),NPS 
5  FORMAT (611) 

DO  11  1*1, NUNIT 

11  NLIST(I)»0 

DO  2  1*1, NOTYPE 

READ (5, 3) TAMNO (I) , MAU ID (I)«NFI(I) , NUTNAI, ( UNIT NO (K) ,K*1, NUTNAI ) , 

1  (UNITDEN(K) ,K*1, NUTNAI) 

3  FORMA  T(A5,I3,22I2) 

00  4  L*l, NUTNAI 

NLIST(UNITNO(L))*NLIST(UNITNO(L))*l 
TYPENO (ML 1ST ( UNIT NO (L ) ) ,UNITNO(L) )*I 

4  NEI(NLIST(UNITNO(L)),UNITNO(L))*UNITOEN(L) 

2  CONTINUE 

CALL  RETRIEV(  SQ, CUBE, IUSP, EMB, NOMEN) 

MRITE (6,210) 

210  FORMA T ( 1H1*60X, 10 H* *********, //»56X» 18H INPUT  DATA  FOR  TME) 

IF (CL  ASS. EQ.l) MRITE (6, 212) 

IF (CL  ASS. EQ. 2) MRITE (6, 226) 

IF (CL  ASS. EQ. 3) MRITE (6, 227) 

IF (CL ASS. EQ. 4) MRITE (6, 228) 

212  FORMAT (/,49X, 32HCOMMUNIC AT IONS/ELECTRONICS  CLASS) 

226  FORMA T(/*58X,14HENGINEER  CLASS) 

227  FORMATS, 55X.21HM0T0R  TRANSPORT  CLASS) 

226  FORMAT (/«56X, 14H0R0NANCE  CLASS) 

MRITE (6,119) 

MRITE (6,229) 

229  FORMAT (  44X,42HPERS0NNEL  ANO  SEABASE  SHOP  CHARACTERISTICS) 

IF (IDCT .EQ.2) NCTS*0 
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WRITE (6,231)NCTS 

231  FORMAT!/, 28X,39HTOT4L  NUMBER  OF  CONTACT  TEAMS  AV  AILABL  E ,  115 ) 

WRITE (6*232) NSS 

232  FORMAT!/, 28X , 2 3 HS E A BASE  REPAIR  CA PAC I T Y , I 3 1 ) 

WRITE  <6,233>IIMIT 

2  33  FORMAT (/,28X,47HNUM8ER  OF  ITEMS  ALLOWED  IN  SEABASE  QUEUE  AFL  OA  T, I  7 
1) 

IF (IE  CHAV (4) .EQ.l) N0P=NPRR4 (CLASS )*NSS 

IF  (IECHAV(4)  .NE.l .AND. IECH4V(3) . EQ. 1 >  NO P*NPRR3 (CLASS) * NSS 
IF (IE  CHAV (4) .NE.l . AND . IECHA V ( 3 ) . NE . 1 . AND . I  EC HA V ( 2 )  .EQ.l) NOP  = 

1  NPRR2(CLASS) *  NSS 
N0P=N0P*2 

IF  (IDCT.EQ. 1) NOP=NOP  +  NCTS 
WRITE (6, 200) NOP 

202  FORMAT!/, 20X,5QHTOTAL  NUMBER  OF  REPAIR  PERSONS  REQUIREO  AT  SEABASE 
1,I4,3X,17H(TW0  8- HR  SHIFTS)) 

NUMBU  S=  3 

DO  2C1  1=1, NUNIT 

IF  (IE AU (3,1) .EQ.l ) NUMBUS=NUMBUS*NUS*NPRR3 (CLASS) 

IF  (IE AU (3,1) .NE.1.AND.IEAU(2, I) .EQ.l) NUM9US * NUMB US +NUS*NPRR2 ( CLAS S 
1) 

201  CONTINUE 
NUM9US=NUMBUS*2 
WRITE (6,202) NUMBUS 

202  FORMAT (/,28X,48HTOTAL  NUMBER  OF  REPAIR  PERSONS  REQUIREO  AT  UNITS, I 
16, 3X, 17H ( TWO  8 -HR  SHIFTS)) 

1 1 =  NU  MBUS ♦NOP 
WRITE  (6,203)  11 

203  FORMAT (/,28X,47HT0TAL  NUMBER  OF  PERSONS  REQUIRED  FOR  MAU  REPAIRI7 ) 
WRITE (6,119) 

119  FORMAT (/, 61 X, 1QH* ******* **,//) 

WRITE (6,234) 

234  FORMAT!  49X  , 33 HREP A IR  CAPABILITY  OF  UNITS  A SHORE, // ,26X , 1 1HUNI T 

1  NUMBER, 6X,9HUNIT  NAME , 9X , 20H UN IT  REPAIR  CAPAC IT Y , 3X , 17HECHEL0N  AV 
1AILABLE) 

DO  236  1=1, NUNIT 

IF (IEAU(2*I) .EQ.l. AND. IEAU(3, I) .EQ.l) TEMP =8H2ND,  3RD 
IF (IE AU(2 ,1) .EQ.l .AND.IEAU(3, I) .NE.l) TEMP=8H  2ND 
IF (IE AU (2,1) .NE.l. AND. IE AU <3, I) . NE . 1 ) TE MP=8H 
IF (IE AU (2 ,1) .NE.l .AND .IE AU( 3, I) .NE.l) ITEMP=0 
IF (IE AU (2,1) .EQ.l .OR. IEAU (3,1) .EQ.l) ITEMP=NUS 
2  36  WRITE  (6,2  37) I , <  UNAME ( I , J )  ,J  =  1,2> , ITEMP, TE  HP 
237  FORMAT (32X,I2*6X, 2A10 ,12X ,12, 16X,A8) 

WRITE (6,119) 

WRITE  (6,221) 

221  FORMAT (57X,17HMAU  C ONF IGURATI ON// , 64X , 2 1HTOT AL  NUMBER  OF  ITEMS, 11X 
1,5 HUT IL. • 19X, 4HUNIT ,4X,4HEMB. ,/,lX,10HTAM  NUMBER , 2 OX , 1 2HNOMENCLATU 
IRE , 2C  X , 9HENO  ITEMS, 3X,llHFLOAT  ITEMS , 3X , 4HMTBF , 3 X , 5HF ACT . , 2X , 6HSQU 
1ARE.4X,4HCU8E ,3X,5HPAC<. ,2X,5HINFO. > 

DO  215  1=1, NOTYPE 

215  WRITE  (6,214) TAMNO(I)  , (NOMEN (I , J ) * J= 1 , 5 >  , M AUI D ( I) , NFI ( I ) , MT BF < I ) , 

1  UF(I),SQ(I) , CUBE ( I) , IUSP(I) ,EMB(I) 

2 14  FORMAT (3X,A5, 4X, 5  A  1 J , 4X, I  3, 9X , I3,7X,F6. 1,2X,F4.0 ,3X,F6.2,2X,F7.2, 

1  2X,I3,5X,A2) 

WRITE (6,213) 
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213  FORMAT  (/,28X,5H . // , 28X .46HNOTE-SS  DENOTES  ITEMS  REQUIRING  SQU 

1 ARC  STOWAGE) 

WRITE (6,204) 

2C4  FO PM AT(1H1,60X,10H**********,//«56X,19H OUTPUT  OATA  FOR  THE) 

IF (CL  ASS. EQ.l) WRITE (6, 212) 

IF (CL  ASS. EQ. 2) WRITE (6,226) 

IF (CL  ASS. EQ. 3) WRITE (6,227) 

IF (CL ASS.EQ.4) WRITE (6,228) 

WRITE  (6,119) 

RETURN 
100  STOP 
ENO 
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6.4  SUBROUTINE  RETRIEV(SQ,CUBE,IUSP,EMB, NOMEN) 


Called  By:  Subroutine  INPUT 
Parameters  Used: 

square  of  all  items  in  the  LF 
cube  of  all  items  in  the  LF 
unit  of  standard  packaging  for  all  items  in  the  LF 
embark  information  for  all  items  in  the  LF 
nomenclature  of  all  items  in  the  LF 


SQ 

List 

of 

the 

CUBE 

List 

of 

the 

IUSP 

List 

of 

the 

EMB 

List 

of 

the 

NOMEN 

List 

of 

the 

Abstract: 

This  subroutine  reads  from  Tape  2  the  characteristics  for  a  given  group  of  items  which  were  read  in 
by  Subroutine  INPUT  (Appendix  D  gives  further  discussion  of  Tape  2  or  the  File  For  Item  Characteristics). 

Tape  2  contains  information  about  items  in  a  Landing  Force  for  both  a  10-day  mission  and  a  90-day 
mission.  The  tape  is  scanned  until  the  appropriate  heading  (i.e.,  a  heading  of  10  DAY  if  GTIME=240.0  or  a 
heading  of  90  DAY  if  GTIME=2 160.0)  is  reached.  Starting  with  i=l,  the  tape  is  scanned  until  the  TAM 
number  on  the  tape  (i.e.,  TAMN)  equals  TAMNO(i)  (read  by  Card  11  of  the  input  data).  The  item  character- 
istics  are  extracted  from  the  tape  by  reading  them  as  variables  SQ(i),  CUBE(i),  MTBF(i),  UF(i),*  IUSP(i),  EMB(i), 
and  NOMEN(ij)  for  j=T  through  7.  The  use  of  seven  consecutive  variables  for  NOMEN  allows  for  a  nomenclature 
of  up  to  65  characters.  The  tape  is  scanned  to  extract  the  item  characteristics  for  every  TAM  number  (i.e., 
TAMNO(i),  i=l ,  through  NOTYPE).  If  Tape  2  does  not  contain  the  information  on  TAMNO(i)  (i.e.,  suppose 
TAMN=TAMNO(i),  for  every  TAMN  or  Tape  2),  the  program  is  aborted. 

When  the  item  characteristics  have  been  extracted  for  every  TAM  number  in  the  Landing  Force;  i.e., 
for  every  i=l  through  NOTYPE,  control  of  the  program  is  returned  to  Subroutine  INPUT. 


*MTBF  and  UF  are  Mean  Time  Between  Failures  and  Utilization  Factor  of  item  i  respectively.  They  are  included  in 
Common.  (See  listing  for  RETRIEV.) 
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SUBROUTINE  RETRIEVC  SQ« CUBE * IUSP , EM9 t NOMEN ) 

REAL  MTBF 

C0MM0N/N1/GTIME,IECHAV(5> » NOT YPE * NUNI T ♦ IOCT , NMI , KMlf I £ AU ( 3 t 10 ) 
i  *pctrc3> *pf(5) ♦ class 

COMNON/N3/INVC150) #  NE 1(30 tlQ) tNFI C150 ) * NL 1ST (10) » NR« NTRQST (200  )  • 
1  NURQST  (230)  »TI  ROST  (200)  ♦ TYPE NO (30 ♦ 10 )  tTAMNOdSQ  ) 

C0MM0N/N4/MTBF  (150)  » UF  (150)  # MTTR2  fMTTR3 AUf MTTR3CT  * MTT  R4 
DIMENSION  SQ (150 )t CUBE (150) t IUSP (150) *EMB (150) • NOMEN (150  *  7) 

REMIND  2 

4  RE  AO  (  2t  1)  A 

1  FORMA  T ( A6  «74X ) 

RE  A9  (  2» 2) 

2  FORMA  T (60  X ) 

IF(GTIME.EQ.240.. ANO. A.EQ.6H10  DAY) GOT03 

IF(GTIME.EQ.2160. • AND . A. EQ.6H90  O AY) GOT 03 
G0T04 

3  CONTINUE 

OO  5  I* 1 1  NOTYPE 

6  REA0(2«6)TAMNtSQ(I)«CUBE(I) *MTBF ( I ) ,UF ( I) f IUSP (I ) t EMB ( I ) 

IF (EOF (2) ) 9t 10 

10  RE  AO ( 2  *  7)  ( NOMEN (I*J)fJ*l«7) 

6  FOPMAT(A5*F6*2»F7«2tF6«0»F3*0fI3fA2f4SX) 

7  FORMAT (6A10fA5tl5X) 

IF(TAMN.NE.TAMN0(I))G0T08 

5  CONTINUE 
RETURN 

9  WRITE (6  *  1 1) T  AMNO ( I ) 

11  FORMAT (lHlt20Xf7HTAM  N0.fA5,14HIS  NOT  ON  FILE) 

STOP 

ENO 
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6.5  SUBROUTINE  TSEQ12 


Called  By:  Executive  Routine 


Variables  Used: 

CLASS 

1EAU(2,  j) 

IEAU(3,  j) 

1ECHAV(2) 

IECHAV(3) 

IECHAV(4) 

1FLAG 

N2E 

N3E 

N4E 

NPRR2(CLASS) 

NPRR3(CLASS) 

NPRR4(CLASS 

NSS 

NUS 


Number  which  indicates  commodity  class 
Availability  of  2nd -echelon  repair  at  unit  j 
Availability  of  3rd -echelon  repair  at  unit  j 
Availability  of  2nd -echelon  repair  at  the  seabase 
Availability  of  3rd -echelon  repair  at  the  seabase 
Availability  of  4th -echelon  repair  at  the  seabase 

Indicates  if  maintenance  equipment  is  a  function  of  the  number  of  items 
in  a  Landing  Force  or  of  the  number  of  maintenance  personnel. 

Total  number  of  items  needed  for  repair  at  2nd  echelon 

Total  number  of  items  needed  for  repair  at  3rd  echelon 

Total  number  of  items  needed  for  repair  at  4th  echelon 

Total  number  of  personnel  required  in  class  CLASS  for  2nd  echelon 

repair 

Total  number  of  personnel  required  in  class  CLASS  for  3rd  echelon 
repair 

Total  number  of  personnel  required  in  class  CLASS  for  4th  echelon 
repair 

Shop  repair  capacity  (number  of  items  which  can  be  under  repair  at  a 
given  time) 

Unit  repair  capacity  (number  of  items  which  can  be  under  repair  at  a 
given  time) 


Abstract : 

Subroutine  TSEQ12  calculates  the  total  number  of  maintenance  equipment  items  (e.g.,  tool  sets,  kits, 
and  special  equipment  items)  required  at  the  seabase  and  at  the  units  for  repairs  either  for  items  in  the 
Communications/Electronics  class  or  for  items  in  the  Engineer  class. 

The  total  number  of  the  ith-echelon  maintenance  items  required  either  at  unit  j  (NMEQU(i,  j))  or  at 
the  seabase  (NMEQSB(i))  is  determined  by  information  from  the  Maintenance  Equipment  File  (Appendix  C 
describes  this  File)  and  from  input  information  (refer  to  Section  4.0). 
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SUBROUTINE  TSEQ12 
INTEGER  CLASS 

COHMON/Nl/GTIME, IECHAV (5)  t NOT YPE t NUNIT , IOCT , NMI, KHI, IEAU (3 ,10 ) « 
i  pctr (3) ,pf(5> , class 
COMMON/N2/NCTS,NSS,NUS 
C0MM0N/N19/NPRR2(4)  ,NPRR3(4)  ,  NPRR4 (4) 

DIMENSION  NMEQU(30,10) ,NMEQS9 (30) ,TTAMNO(30) t I TOT AL ( 3 0 > , NOME N ( 30 , 6 

1) 

2  RE  AO ( 1,10  0) ICLASStIFLAG 

103  FORMA T (21 1, 78X) 

IF (ICLASS.EQ.  CLASS) GOT 01 
IF ( IF  LAG. NE.O) REA  0(1, 101) 

101  FORMA  T  (SOX) 

G0T02 

C  DETERMINE  NO.  OF  TEST  EQUIP  FOR  TEST  EQUIP  I 
1  I*C 

0  I*  IU 

6  READ (1, 10 2) ICLASS,IFLAG,TTAMNO(I) ,CONT , N2E , N3E ,N 4E 

102  F0RMAT(2I1,A5,1X, A1,54X,3 (II, IX) ) 

IF  (EOF ( 1)  )  3 , 4 

4  IF(ICLASS.NE.CLASS) G0T03 

RE  AO ( 1,112)  (NOMEN (It J) ,J* 1,6) 

112  FORMAT (15X,5AlO«A9,6X) 

IF (IFLAG.EQ.2) GOT  05 
IF (CONT.NE.1H  )G0T06 

C  IF  TEST  EQUIPMENT  IS  FOR  REPAIR  OF  END  ITEMS 
C  AT  UNIT  NO.  J 

DO  7  Jri, NUNIT 
NMEQU ( I ♦ J) =0 

IF (IEAU(2,J) • EQ .1 ) NMEQU ( I , J ) *N2E 

IF (IE AU ( 3 , J) . EQ.l ) NMEQU( I , J) =N3E* NMEQU ( I , J) 

7  CONTINUE 
C  AT  SEABASE 

NMEQSB ( I ) =0 

IF (IECHAVC2) .EQ.1)NMEQSB(I)=N2E 

IF (IE  CHAV (3) . EQ.l ) NMEQSB ( I ) *N3E*NMEQS8( I) 

IF (IE CHAV (4) . EQ.l ) NMEQSB ( I ) *NMEQSB ( I ) +N4E 
G0T08 

C  IF  TEST  EQUIPMENT  IS  FOR  MAINTENANCE  PERSONNEL 

5  DO  9  J=l, NUNIT 

IF (IE AU (3, J). EQ.l) NUMBUS*NUS*NPRR3 (CLASS) 

IF (IEAU(3,J) .NE.1.AN0.IEAU(2,J) • EQ. 1) NUMBUS* NUS*  NPRR2 (CLASS) 

NMEQU (I, J)*0 

IF (IEAU(2, J) .EQ.l) NMEQU (I , J) = NUMBUS*N2E 
IF(IEAU(3, J) .EQ.l ) NMEQU Cl, J)*NMEQU (If J) +NUMBUS*N3E 
9  CONTINUE 

IF(IECHAV(4) . EQ.l )N0P=NPRR4 (CLASS )*NSS 

IF ( IECHAV (4) . NE. 1 . AND • IECHAV( 3) .EQ.l) NOP«NPRR3 (CLASS)  *NSS 
IF (IE CHAV (4) .NE.l. AND . IECHAV ( 3 ) .NE.l.AND. IECHA V ( 2 ) .EQ. 1) 

1  NOP- NPRR2 (CLASS) *NSS 
NMEQSB(I) =0 

IF (IECHAV (2) .EQ.l) NMEQSB (I)-NOP^N2E 
IF (IECHAV (3) .EQ.l) NMEQSB (I)*N0P*N4E+NMEQSB(I) 

IF (IECHAV (4) .EQ.l) NMEQSB ( I)=N0P*N4E+NMEQSB(I) 

G0T08 
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SUBROUTINE  TSEQ12 


3  CONTINUE 

WRITE (6,134) 

104  FORMAT <///,42X,47HT00L  SETS,  KITS,  ANO  SPECIAL  EQUIPMENT  PEQUIREO) 
WRITE  (6,107)  <L,L=1,NUNIT> 

63  107  FORMAT {///,85X,33HQUANTITY  OF  REPAIR  ITEMS  REQUI RED , / , S6X , 8H AT  UNI 

1TS»1SX,1'jHAT  SE ABASE,  3X.5HT0TAL,/  ,76X,13I3) 

WRITE  (6,114) 

114  FORMAT(24X,12HNOMENCLATURE,25X,12HTEST  TAM  NO.,/) 

NT  t  =  I -1 

65  00  110  L= 1 , NT E 

ITOTAL(L) =0 
DO  10  8  K= 1 »  NUNI T 

108  ITOTAL(L) =NME  QU ( L , K) +  ITOT AL (L  > 

113  ITOTAL(L) =NMEQSB(L) +  1  TOTAL (L) 

70  DO  109  1=1, NTE 

WRITE  (6, 10  3)  (NOMENd,  J)  ,  J  =  l,6)  ,  TT  AMNO  ( I )  ,  (NMEQU<  I,  J)  ,  J  =  1,NUNIT) 

103  FORMAT (IX ,5A10, A9,4X, A5,7X,10I3) 

109  WRITE (6,111) NMEQS  B ( I ) , ITOT  AL ( I ) 

111  FOPMAT(lHf,113X,I2,SX,I2) 

75  RETURN 

END 
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6.6  SUBROUTINE  TSEQ3 


Called  By:  Executive  Routine 

Abstract: 

Subroutine  TSEQ3  calculates  the  variables  required  in  determining  the  total  number  of  maintenance 
equipment  items  required  at  the  seabase  and  at  the  units  for  the  Motor  Transport  Commodity  class.  The 
total  number  of  maintenance  equipment  items  is  then  calculated  in  another  subroutine  (TESTEQ). 

Items  in  the  Motor  Transport  class  are  divided  into  three  categories: 

Category  1  Gas  Powered 

Category  2  Diesel  Powered 

Category  3  Trailors 

Every  maintenance -equipment  item  required  for  the  repair  of  Motor  Transport  items  is  associated  with  one  of 
the  above  categories. 

Subroutine  TSEQ3  performs  four  operations.  The  first  operation  determines  the  number  of  end 
items  in  each  category  which  require  repair  at  the  units  and  at  the  seabase.  The  notation  N2U(i,  j),  the  total 
number  of  end  items  of  category]  which  require  2nd -echelon  repair  at  unit  i,  is  a  function  of  the  total  number 
of  end  items  in  category  j.  The  notation  N2SB(j),  the  total  number  of  end  items  of  category  j  which  require 
2nd -echelon  repair  at  the  seabase,  is  a  function  of  the  total  number  of  end  items  in  category  j  which  are 
repaired  at  the  seabase. 

The  second  operation  determines  for  each  category  where  3rd  -  and  4th -echelon  repairs  are  to  be 
performed.  The  variable,  LOC(i,  j),  denotes  the  units  which  can  perform  3rd -echelon  repair  for  items  in 
category  j.  Subscript  i  ranges  from  1  through  M(j)  (where  M(j)  is  the  calculated  maximum  number  of  units 
which  require  3rd -echelon  repair  for  category  j).  Variable  FLAG3(j)  equals  3RD  if  the  seabase  will  provide 
3rd-echelon  repair  for  items  in  category  j.  The  variable  FLAG4(j)  equals  4TH  if  the  seabase  will  provide  4th- 
echelon  repair  for  items  in  category].  These  variables  depend  on  the  level  of  the  echelon  of  repair  available 
at  the  units  and  at  the  seabase. 

The  third  operation  determines  the  total  number  of  “special -case”  items;  i.e.,  end  items  with  a  TAM 
number  of  D1100,  D1160,  or  D0860,  which  require  2nd-echelon  repair  at  the  seabase.  The  variable  N1100SB 
equals  the  total  number  of  items  with  a  TAM  number  D1100  which  require  2nd-echelon  repair  at  the  seabase. 
The  variable  N1160SB  equals  the  number  of  end  items  with  a  TAM  number  D1160  which  require  2nd- 
echelon  repair  at  the  seabase.  The  variable  N0860SB  equals  the  number  of  end  items  with  a  TAM  number 
D0860  which  require  2nd -echelon  repair  at  the  seabase. 

The  fourth  operation  determines  the  total  number  of  “special -case”  items  which  require  3rd- echelon 
and  4th-echelon  repair  at  the  seabase.  The  variable  F3D1100  equals  3RD  if  the  seabase  performs  3rd-echelon 
repair  on  item  D1100.  The  variable  F3D1160  equals  3RD  if  the  seabase  performs  3rd-echelon  repair  on  item 
D1 160.  The  variable  F3D0860  equals  3RD  if  the  seabase  performs  3rd-echelon  repair  on  item  D0860.  The 
variable  F4D1100  equals  4TH  if  the  seabase  performs  4th-echelon  repair  on  item  D1100.  The  variable  F4D1160 
equals  4TH  if  the  seabase  performs  4th-echelon  repair  on  item  D1160.  Variable  F4D0860  equals  4TH  if  the 
seabase  performs  4th-echelon  repair  on  item  D0860.  These  variables  depend  on  the  level  of  the  echelons  of 
repair  available  at  the  seabase. 
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Subroutine  TESTEQ  is  then  called  to  determine  how  many  maintenance -equipment  items  are 
required  for  repair  of  end  items  at  the  units  and  at  the  seabase. 
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SUBROUTINE  TSEQ3 
INTEGER  TYPENO, TAMNO 

COHMON/Nl/GTlMEfIECHAV (5)  , NOT YPE • NUNIT * IO CT , NHI • KMI, IE AU (3 * 10 )  , 

1  PCTR (3) , PF ( 5 )  , CL  ASS 

COMMON/N3/INV (150) ,NEI (30*10)  * NFI ( 150 ) * NL 1ST (10)  *  NR*  NTRQST (2001* 

1  NURQST (200) *TIRQST (200) *TYPENO (30*10) * TAMNO (150 ) 

COliMO  N/N8/N2U(10*3)  , N2SB  (  3 )  *L  OC  (1 0  * 3 )  *FLAG3(3>  *FL AG4  ( 3 )  *  H ( 3)  * 

1  N110  0SB  *  N1160SB*  NO  860SB*  F3D1100*  F401100*  F3D1160,  F401160* 

1  F30Q86Q,F400860 

C  TEST  EQUIP  FOR  VEHICLES,  DIESELS*  TRAILORS 
DO  4  MODE  *1*3 

C  FOR  MODE*  FOLLOWING  SECTIONS  DETERMINES  NO.  OF  2ND  ECH  REPAIRS  NEEDEO  AT 
C  SEABASE  AND  AT  UNIT 
DO  1  1*1  *  NUNIT 

1  N2U( I  *  MODE) *0 
N2 SB (  MODE ) *0 
DO  2  J=  1*  NUNIT 
K=  NL  I  ST  ( J  I 

DO  3  1=1 , K 
L=TAMNO(TYPENO(I* J) ) 

IF (MODE.EQ.l. AND. ( 

1  L. EQ.5HD0840.0R.L.EQ.5H00860.0R.L.EQ.5HD0880) )G0T03 
IF (MOOE.EQ.2. AND. ( 

1  L.EQ.5HD1160.0R.L.EQ.5HD0840.0R.L.EQ.5HD0660.0R.L.EQ. 5HD0880 • 

1  OR.L.EQ.5H0Q890) >G0T03 
IF (MOOE.EQ.3.ANO. ( 

1  L.EQ.5HD0  840.0R.L.EQ.5HD0  8  60.0R.L.EQ.5HD0  880)  )  GOT'''? 

IF (MODE.EQ.3)GOT03 

5  IF (IE AU(2*J) .EQ.1)N2U(J*M00E) =NEI ( I * J ) +N2U ( J *MOO E) 

IF.(IEAU(2*J)  .EQ.1  .AND.IECHAV(2)  .EQ.l)  N2SB  (MODE )  *  NEI  ( I  *  J)*N2SB(MODE 

1) 

3  CONTINUE 

2  CONTINUE 

C  FOR  MODE, FOLLOWING  SECTION  DETERMINES  LOCATION  OF  3RD  AND  4TH  ECH  REPAIRS 
M(MODE) *0 
FLAG3  (MODE ) =  3H 
FLAG4 (MODE) =  3H 
OO  7  J=l, NUNIT 
K=  NL  I  ST  ( J  ) 

00  9  1=1, K 

L= TAMNO (TYPENO(I,J) ) 

IF (MODE.EQ.l.ANO. ( 

1  L. EQ.5HDQ840.OR.L. EQ. 5  HD  0  8 60  . OR.L . EQ. 5  HD Q 88 0)  ) GOT  08 
IF (M0DE.EQ.2.AN0. ( 

1  L. EQ.5HD 1160. OR.L. EQ.5HD084C .OR.L. EQ.5H0 0860. OR.L. EQ.5HOO 880. 

1  OR.L.EQ.5HD0890) JG0T08 
IF (MODE.EQ.3.AND. ( 

1  L. EQ.5H00  8  40.0R.L.EQ.5H00  8  60.0R.L.EQ.5HD0  88  0)  )G0T06 
IF ( MODE • EQ. 3 ) G0T08 

6  IF  (IE AU( 3, J) .EQ.l) GOT  09 

IF ( IE  CHAV ( 3 ) . EQ.l) FLA G3( MODE) =3H3R0 
G0T07 

9  M ( MOO  E) (MODE) +1 

LOC(M(MODE),MODE)=J 

G0T07 
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8  CONTINUE 

7  CONTINUE 

IF  ( I C  CH  AV ( 4 )  *EQ.l)FLAG4(MODE)  =  3  H4  TH 
4  CONTINUE 

C  DETERMINE  no.  or  SPECIAL  CASE  EQUIP  RE  PA  I  RE  0  AT  SE  ABASE  POR  2ND  ECH 
Nil]'.:  Sp  =  I 
N116C SB  =  0 
NO  86 C SB=  3 
DO  1C  J= 1 » NUN  I T 
K=  NL  I  ST  (  J) 

DO  11  1=1, K 
II=TAMNO(TYPENO(I , J) I 

IF  (II .NE.5HD11Q0. AND. II. NE.5HO1160 .AND. II . NE .5  HD  0063  ) GOT  Oil 
IF (II .EQ.5HD110Q. AND. IEAU <2t J) . EQ . 0 • AND . I ECH AV (2 ) .EQ.l) 

INI 10  0 SB  =  N11 J0S9  +  NEI (I ,  J) 

IF (II  .EQ. 5 HD 1160 . AND. IEAU (2*  J) . E Q . 0 . A NO . I ECH AV  < 2 >  •EQ.l ) 

1  N116 jS3=N1163SB*NEI ( It J) 

IF {II  ,EQ. 5HO0  860  . AND . IEAU (2  t J) .EQ.0. AND .IECHAV  <2)  .EQ.l) 

1  NC 6b0S3=N036QSO+NEI ( It J) 

11  CONTINUE 

13  CONTINUE 

C  DETERMINE  IF  SPECIAL  CASE  EQUIPMENTS  ARE  REPAIRED  BY  3RD  A  NO  4TH  ECHELON  AT  SB 
F3D113G=3H 
F4D1100=3H 
F3D1160=3H 
F4D116Q=3H 
F3D3860=3H 
F4D3  8  60  =  3H 
DO  12  J  =  1 fNUNIT 
K=  NL  I  ST  { J) 

DO  13  1  =  1,  K 
L=TAMNO(TYPENO(ItJ) ) 

IF (L . EQ. 5HD1100. AND. IEAU ( 3, J) . NE . 1 . AND . IECHA V ( 3) .EQ.l ) 

1  F  30  1  ID  0  =  3H  3RO 

IF (L. EO.5HDll60.AND.IEAU(3t J) .NE.l.ANO. IECHAV (3) .EQ.l) 

1  F  3D  1 16  0  =  3H  3RD 

IF  (L.  EQ.5HDD860  .AND.IEAU( 3t J)  . NE .  1 . AND . I ECHA V ( 3)  .EQ.l) 

1  F3D3 863=3H3RD 

IF (L. E 0.5  HD 110  0 .AND. I ECHA V( 4)  .EQ.l)  F 4D1 1 3 0 * 3H4T H 
IF (L. EQ. 5 HD 1160. A  NO. IECHA V (4)  .EQ.l)  F 4D 1 160 = 3H4T H 
IF (L. EQ.5HD0360.AND.IECHAV(4) .EQ.l)  F 4D 0 860 = 3H4T H 
13  CONTINUE 

12  CONTINUE 
CALL  TESTED 
RE  TUP  N 

END 
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6.7  SUBROUTINE  TESTEQ 


Called  By:  Subroutine  TSEQ3 


Variables  Used: 

F3D0860 
F3DI  100 
F3D1  160 
F4D0860 
F4D1 100 
F4D1  160 
FLAG3(j) 
FLAG4(j) 
ISC 


LOC(m,  k), 
m  =  1 ,  M(k) 

M(k) 

MODE 

N0860SB 

N1100SB 

N1160SB 

N2SB(k) 

N2UG,  k) 

N3E 

N4E 

NEI(n,j) 

NVS2E 


Indicates  if  seabase  will  repair  item  D0860  at  3rd  echelon 

Indicates  if  seabase  will  repair  item  D1 100  at  3rd  echelon 

Indicates  if  seabase  will  repair  item  D1 160  at  3rd  echelon 

Indicates  if  seabase  will  repair  item  D0860  at  4th  echelon 
Indicates  if  seabase  will  repair  item  D1 100  at  4th  echelon 
Indicates  if  seabase  will  repair  item  D1 160  at  4th  echelon 
Indicates  if  seabase  will  repair  items  in  category  j  at  3rd  echelon 
Indicates  if  seabase  will  repair  items  in  category  j  at  4th  echelon 

Indicates  if  a  given  maintenance -equipment  item  is  required  for  “special 
case”  items 

Array  of  units  capable  of  repairing  items  at  3rd  echelon  in  category  k 


Maximum  number  of  units  which  repair  items  in  category  k  at  3rd  echelon 
Category  of  items  a  maintenance -equipment  item  can  repair 

Total  number  of  D0860  items  which  require  2nd -echelon  repair  at  the 
seabase 

Total  number  of  D1 100  items  which  require  2nd -echelon  repair  at  the 
seabase 

Total  number  of  D1 160  items  which  require  2nd -echelon  repair  at  the 
seabase 

Total  number  of  items  in  category  k  which  require  2nd -echelon  repair  at 
the  seabase 

Total  number  of  items  in  category  k  which  require  2nd -echelon  repair  at 
unit  j 

Total  number  of  maintenance  equipment  items  required  for  3rd -echelon 
repair 

Total  number  of  maintenance  equipment  items  required  for  4th -echelon 
repair 

Total  number  of  items  at  unit  j  with  TAM  number,  TAMNO(TYPENO(n,j)) 
Total  number  of  items  a  given  maintenance -equipment  item  can  support 


Abstract: 

This  subroutine  calculates  how  many  maintenance -equipment  items  i.e.,  tool  sets,  kits,  and  special - 
equipment  items,  are  required  at  the  seabase  and  at  the  units  for  the  repair  of  items  in  the  Motor  Transport 
class. 

The  total  number  of  the  ith  level  of  maintenance  items  required  at  either  unit  j  (NMEQU(ij))  or  at 
the  seabase  (NMEQSB(i))  is  determined  by  information  from  the  Maintenance  Equipment  File  (refer  to 
Appendix  C),  input  information  (refer  to  Appendix  A),  and  variables  calculated  in  Subroutine  TSEQ3. 
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SUBROUTINE  TESTED 
INTEGER  TYPENO, CLASS 

COMMON/N1/GTIME, IECHAV<5) , NOT Y PE, NUNI T * IOCT f NMI , KMI ,  I EAU  < 3 , 1 0  I  , 

1  PCTR (3) »  PF ( 5 ) , CL  ASS 

C0MM0N/N3/INV ( ISO  I ,  NE  I (30 .13)  * NF I ( 15 0 > • NL 1ST ( 1 b )  *NR, NTRQST (2  00  )  , 

1  NURQ  ST (  200  ) ,  T I RQST (200) , T YPE NO ( 3 0 , 1 0 ) , TAMNO(150 ) 

COMNON/N0/N2U(1O, 3) ,N2SB<3) ,L 00(10,3) ,FLAG3<3> ,FL AG4 ( 3 > , H ( 3) , 

1  N110 JSB,N1160SBiNC 360SB,  F3D1100*  F4D1130,  F3D116Q,  F40116G, 

1  F3DQ 863,F40086Q 

OI MEN SI ON  NMEQU(30,10) ,NMEQSB(3Q) ,TTAMN0(3J) , HOT AL ( 3 0 ) , NOME N ( 30 , 6 
1) 

0  READ (1*111) ICL ASS  * IFL  AG 

111  FORMA  T(2I1,78X) 

IF  (ICLASS.EQ. 3) GOTOl 
IF ( IF  LAG, NE • 0 ) REA  0(1*112) 

112  FORMA  T ( 00  X) 

G0T06 

C  DETERMINE  NO.  OF  TEST  EQUIPMENT  FOR  TEST  EQUIP  NO.  I 
1  1=0 

2  1=1+1 

13  REAO( 1,113) I CL  ASS, I FLAG, TTAMNO(I) ,CONT , N2E ,  N3E  ,N4E  ,MOD E , NVS2E , ISC 

113  F0RMAT(2I1,A5,1X, Al, 54X, 3 (lit  IX) ,11,12,14) 

IF(EOF(l) >11,12 

12  IF  (ICL ASS. NE. 3) GO TOll 

READ < 1,102) (NOMEN (I, J) ,  J* 1,6) 

10  2  FORMAT (15 X, 5 A 10 , A  9, 5X) 

IF (CO NT • NE • 1H  )G0T013 
IF  (IFLAG.EQ.2) G0T013 
IF (ISC. EQ. 1130) SC =5 HO  1100 
IF  (ISC.EQ.1160)SC=5H01160 
IF(ISC.EQ.U860)SC=5H00860 
IF(ISC.EQ.0)SC=5H 
C  AT  UNIT  NO.  J 

DO  3  J=1 t NUNIT 
IF (ISC.EQ.0)GOTO2l 
L=  NLI ST ( J ) 

DO  15  K= 1 ,  L 

IF (SC .EQ.TAMNO(TYPENO (K, J ) ) ) GOT 021 
15  CONTINUE 
G0T04 

21  IF  (I EAU (2, J) .EQ.9 .0R.N2U( J,M0DE) .EQ.O)GOT04 

L1  =  0 

L2=NVS2E 
IC  NTR  =  G 

IF (NVS2E.EQ.Q)G0T05 
6  ICNTR=ICNTR+1 

IF (ISC.EQ.G .AND. N2U(J, MODE) .GT . Li . ANO . N2U ( J , MODE ) .LE.L2) G0T05 
IF (ISC.NE.O.ANO.NEI (K,J) . GT . L 1 . AND . NE I ( K, J ) . LE .L 2) G0T05 
Ll=L2 

L2  =  L2  +NVS  2E 
G0T06 

5  NMEQU (I ,J)=ICNTR 

IF (M ( MODE ) .EQ.Q)G0T03 
LL  =M ( MODE ) 

DO  7  KK  =  1 , LL 
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SUBROUTINE  TESTEQ 


IF (LOCtKKfMODE) . NE. J) GOT 07 
NMEQU (I* J)=NMEQU( I, J) +  N3E 
G0T03 

7  CONTINUE 

60  GO  T  03 

4  NMEQU ( 1 1  J ) =0 

3  CONTINUE 

C  AT  SEA  BASE 
11-3 

65  L2=NVS2E 

IC  NT  R  =  C 

IF (NVS2£.EQ.Q)G0T09 

IF (ISC.EQ. 0. AND.N2S3( MODE) .EQ. 0) G0T09 
IF (SC .EQ. 5HD11C0. AND. N110  OSB. EQ.O ) GOT 09 
73  IF (SC .EQ, 5HD 11 60. A  NO • N1 16 OSB. EQ.O) GOT  09 

IF (SC .EQ. 5 HO u 860. AND. NO 86 OSB. EQ.O ) GOT 09 
10  ICNTR=ICNTR*1 

IF (ISC.EQ. 0. A  NO. N2S3 (MODE) . GT . LI . ANO . N2 SB (MOOE) . LE.L2) G0T09 
IF  (SC  .EQ.  5HOHOO.  ANO.NllOQSB.  GT  .  L 1 .  AND .  N1 10  OSB  .LE  .  L2  >  G0T09 
75  IF (SC.EQ.5HO1160. ANO.N116  0SB.GT . L 1 . AND . N1 160SB .L E . L2 ) GOT  09 

IF (SC .EQ.5H0  0  660. ANO. N3  86  0SB. GT . L 1 . AND . NO  860  SB .1 E . L2 > GOT 09 
L 1  =L2 

L2=L2+NVS2E 

GOTOIO 

80  9  NMEQS  9 ( I ) = IC NTR 

IF (ISC. EQ.O. AND.FLAG3 ( MODE ) . EQ . 3 H3RD ) NMEQSB ( I) * NMEQSB ( I) +N3E 
IF (ISC. EQ.O. AND. FLAG4 (MOOE) .EQ.3H4TH) NMEQSB ( I) =  NMEQSB  ( I) +  N4E 
IF (SC.EQ.5H0110C. ANO.  F30110  0  .EQ. 3H3RD ) NMEQS B ( I ) * NMEQS  B ( I ) +N3E 
IF (SC . EQ. 5HD113G. AND.  F4D110 0 . EQ. 3H4TH) NMEQSB (I) *NMEQSB( I) +  N4E 
85  '  IF (SC .EQ.5HD1160. ANO.  F3D1160 .EQ. 3H3R0) NMEQSB ( I) *NMEQSB( I ) +N3E 

IF (SC.EQ.5HD1160.AND.  F4D 1 160 . EQ . 3H4T H) NMEQS B ( I)  =NMEQSB(I) +N4E 
IF (SC. EQ. 5 HO 0860. ANO.  F3D0860.EQ. 3H3RD) NMEQSB (I) *NMEQSB< I) *N3E 
IF (SC .EQ. 5H03  860. AND.  F4Du863  .EQ.3H4TH) NMEQSB ( I) *  NMEQSB ( I ) +  N4E 
GOT02 

90  11  CONTINUE 

WRITE (6,100) 

103  FORMAT (///,42X,47HT00L  SETS,  KITS,  ANO  SPECIAL  EQUIPMENT  REQUIRED) 
WRITE  (6,107)  ( L , Ls 1 , NUNIT ) 

107  FORMAT (///,85X,33HQUANTITY  OF  REPAIR  ITEMS  REQUI REO, / , 86 X , 8HAT  UNI 

95  ITS ,15 X, 10 HAT  SE AB ASE , 3X, 5 HTOT AL , / , 76X , 10 1 3) 

WRITE (6,114) 

114  FORMA T (24X , 12HNOMENCL ATURE,25X 1 12HTEST  TAM  NO.,/) 

NT  E= I  -1 

DO  110  L  =  1 , NTE 

100  IT  OT  A  L  (L )  =0 

00  108  K  = 1 , NUNIT 

108  ITOTAL (L) =NMEQU(L,K)+lTOTAL(L) 

110  ITOTAL(L) =NMEQSB(L) ♦ITOTAL (L) 

DO  109  1  =  1,  NTE 

105  WRITE (6,103) ( NOMEN(I, J) , J  =  l,6> , TT  AMNO ( I ) , ( NMEQU ( I, J) , J*l, NUNIT) 

103  FORMAT (IX ,5A10, A9,4X, A5,7X,10 13) 

109  WRITE (6, 101) NMEQSB (I) , ITOTAL ( I) 

101  FORMA  T (1H*,113X,I2,8X,  12) 

RE  TUP  N 

110  END 
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6.8  SUBROUTINE  INITIAL 


Called  By:  Executive  Routine 


Abstract: 

This  subroutine  performs  the  function  of  initializing  various  variables  for  the  class  under  consideration. 
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SUBROUTINE  INITIAL 


SUBROUTINE  INITIAL 

COMMON/Nl/GTIME»IECHAV (5) tNOT YPE *  NUN IT  , IOCT  » NMI, KMI. IE  AU ( 3  » 10  > 

1  »PCTR(3) » PF  1 5 ) *  C  L ASS 
COHMON/N2/NCTStNSS*NUS 

5  C0MN0N/N7/DTH (150 .1  )) * HQE  ( 13 >  » HH I Q( 13 » • LENT HC ( 13 ) .LENT HQ ( 13)  , 

1  M AXQL  < 1 3) .NENTER (13) ,  QL ( 13) , T QBE ( 13) , WT ( 13 ) ,NOI SC ( 15 0 ) ♦ NOREQ < 150 ) 
1  , HCTW(IJ) * TCT3P ( 10 ) iHSSH(lO) , TSSBF(IO)  .TRTS»NIER (13) , IMAXQL (13) 

1  « INE  NTR ( 13) ,TIMEINT,HUSW (10) , TUSBF < 1 0 >  f NOF A IL (1 50 , 10  > 


10 

DO  12  1*1, NOTYPE 
NO  ISC  ( I ) *  0 

15 

11 

NOREQ  (I)*3 

DO  11  J* 1 , NUNI T 
HUSW( J)=3, 

NOFAIL ( I , J) *0 
OTH(I * J)*Q. 

12 

CONTINUE 

13 

DO  13  1=1*10 

HSSW (  I)  =  0  • 
HCTW<II*0. 

20 

J=  3  +  N  UNI T 

25 

DO  14  I*1*J 

QL (I) =0. 

WT (I) =0. 

IMAXQL(I) =0 
INENTR(I) =0 

14 

nier ( n*a 

HQE ( I )  =  0  • 

30 

TRTS  =  0 • 

RETURN 

END 
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6.9  SUBROUTINE  SIE 


Called  By:  Executive  Routine 

Abstract: 

This  subroutine  performs  three  functions.  The  first  is  to  generate  initial  fail  events  for  all  the  items 
in  the  Landing  Force.  At  the  start  of  the  mission  (i.e. ,  TIME=0.0)  all  the  end  items  are  assumed  to  be  fully 
operational.  For  every  end  item,  a  failure  is  generated  by  storing  a  fail  event  on  the  event  list.  (See  Section 
7.1.)  These  items  will  therefore  operate  from  TIME=0.0  until  their  generated  time  to  failure. 

The  second  function  is  to  schedule  the  update  of  the  variables  LENTHQ  and  LENTHC  at  time 
TIMEINT  by  calling  the  function  SNE(IQL,TIMEINT,WORD,FTIME). 

The  third  function  is  to  initialize  various  variables  before  the  start  of  each  simulated  mission.  Since 
all  dedicated  Contact  Teams  are  initially  at  the  seabase  and  are  available  for  repair  work,  variable  ICTS(i)  is 
initialized  to  (NOTYPE+1)  for  i  ranging  from  CT  number  1  through  CT  numbers  NCTS.  To  set  up  the  initial 
float  level  of  replacement  items,  variable  INV(i)  is  initialized  to  the  number  of  float  items  designated  for  type  i 
(INV(i)=NFI(i)  for  i=l  through  NOTYPE).  Variables  ISS(i),  for  i=l  through  NSS,  are  initialized  to  zero  to 
indicate  that  the  required  maintenance  personnel  and  space  number  i  are  available  for  repair.  If  the  mainte¬ 
nance  personnel  are  removed  from  their  space  i,  then  the  space  is  no  longer  available  for  a  repair  and 
ISS(i)#)  indicates  this  condition.  The  other  variables  are  initialized  to  zero.  (Refer  to  program  listing  for 
the  names  of  these  variables.) 
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SUBROUTINE  SIE 
INTEGER  TYPENO,WORQ  (6 ) 

COMMON/N1/GTIME, I  EC  HA V(5 ) , NOT YP E «  NUN  I T , I DC T , NM I ,  KM I , I E AU ( 3 , 1 0 ) 

1  i PCT  R ( 3 )  ,PF(5) , CLASS 
C0MM0N/N2/NCTS,NSS,NUS 

COMMON/N3/INV(15J)  ,  NEK  30,10)  tNFI(  150  >  fNL  1ST  (10) , NR,NTRQST (200 ) t 
1  NURQST (200) , TIRO  ST (2  0  0  ) , TYPE  NO (30,10 >  ♦ TAMNO  (150 > 

COMMON/N5/ICT Q (20  G ) , I SQ (  2 0 0 ) *  I SQ A ( 2 0 0 ) , I SS ( 1 0 )  *  I UQ ( 2 0  0  , 1 0  ) « N IC TQ, 

1  NICTS,NISQ,NISQA,NIUQ(lu),NIUS(lC),NPISQ(2CC),NPISQA<20G), 

1  NUICTQ(2Q0)tTlCTQ(20Q)*TlSO(200)*TISQA(2uC)*TIUQ(200tl0) 

1  , NESQ (20  0) ,NESQA ( 2 C 0 ) ,NEUQ (2  03  , 10 ) *  NEC  TO (2  00  )  ,ICT3(10 ) 
COMHON/N7/OTH (150,1J),HQE(13),HWIQ(13),LENTHC<13),LENTHQ(13), 

1  MAXQL  (13) ,NENTER (13) *QL ( 1 3 ) , T QBE ( 1 3 ) , M T ( 1 3 ) , ND I S C ( 1 5 0 > » NORE Q ( 150 ) 
1  ,  HCT  wua  )  ,  TCTBF(  i:  >  fHSSWClO)  »TSSBF(1C)  fTRTStNIER  (13)  •  IMAXQL  (13) 

1  , INENTR( 13) , TIME  I  NT, HUS W (10),TUSBF(10),NOFAIL(150,10) 
COMMON/SNTN/CLOCK (300 ) , EVENT! 300) ,IPTR,WORDS(6,3QQ),FTIME$(3G0) 
DATA  IQl , ICOMPS, IARRVL, IFAIL/1,2, 4,6/ 

IP  TR  =  0 

OO  1  J= 1 , NUN I T 
1 1  =NL 1ST ( J ) 

OO  2  1=1,11 
KK  =NE  I  (I,  J) 

OO  3  K= 1 , KK 
WORO(1)=TYP£NO(I, J) 

WORD ( 2 ) =  J 

CALL  GENTTF(WORO,TTF) 

CALL  SNE(IFAIL,TTFfWORD,FTIMt) 

3  CONTINUE 

2  CONTINUE 

1  CONTINUE 

CALL  SNE(IQL,TIMEINT,WORO,FTIME) 

DO  9  1=1, NCTS 
9  IC  TS ( I ) =  NOT YPE  *1 

OO  4  1=1, NOTYPE 

4  I  N  V ( I )  =  NF  I  ( I ) 

NR  =  J 

DO  5  1=1, 1J 

5  ISS(I)=0 
NI SQ=  0 
NI SQA  =0 
NICT  Q  =  0 
NICTS=C 

OO  6  1=1, NUNIT 
NI UQ (  I)  =  0 

6  N I  US  (  I )  =  0 
J=  3  +  N  UNIT 
OO  7  1  =  1, J 
TQBE ( I )  =  0  * 

NENTER(I)  =0 
HW IQ (  I) =0  • 

LENTHQ(I) =0 
LENTHC(I) =0 

7  MAXQL  ( I ) =  0 
RETURN 
END 
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6.10  SUBROUTINE  SNE(IEVJIME,WORD,FTIME) 


Called  By:  Subroutine  FAIL,  Subroutine  COMPS,  Subroutine  ARRVL,  Subroutine  REQUST, 
Subroutine  S1E 

Parameters  Used 
IEV 
TIME 
WORD 
FUME 

Abstract; 

Subroutine  SNE  stores  an  event  just  scheduled  on  the  event  list.  When  Subroutine  SNE  is  called,  IEV 
is  represented  by  a  hollerith  constant.  The  value  of  IEV  is  converted  into  an  integer  constant  by  the  state¬ 
ment,  DATA  IQL,ICOMPS,IARRVL,IFAIL/l ,2,4,6/.  In  Subroutine  SNE  the  integer  value  of  IEV  indicates  the 
type  of  event  to  store  as  follows: 

IQL  Schedule  update  of  the  variables  LENTHQ  and  LENTHC 

ICOMPS  Schedule  a  repair 

IARRVL  Schedule  an  arrival 

IFAIL  Schedule  a  failure 

To  indicate  that  an  event  is  being  added  to  the  event  list,  the  variable  IPTR  which  records  the 
number  of  events  presently  on  the  event  list  is  updated  (IPTR=IPTR+1).  If  this  number  exceeds  the  event 
list  limit  (IPTR  >  300),  the  program  stops.  (To  increase  the  event  list  limit  from  300,  the  dimensions  of  the 
variables  in  COMMON  statement  /SNTN/  must  be  changed  as  well  as  the  statement  in  Subroutine  SNE:  IF 
(IPTR. EQ. 300)  GO  TO  8.)  If  IPTR  ^  300  the  event  just  scheduled  will  be  stored  on  the  event  list  in  a  loca¬ 
tion  which  depends  on  the  time  the  event  is  to  occur  (i.e.,  TIME)  and  the  indicator  of  the  event  type  (i.e., 
IEV).  This  location  will  be  determined  as  follows: 

If  IPTR-1  Store  in  Location  1 

If  TIME  <CLOCK(i),  for  any  i=l  ,(IPTR- 1 )  Store  in  Location  i 

If  TIMECLOCK(i)  and  IEV  <EVENT(i),  for 

any  i=l, (IPTR-1)  Store  in  Location  i 

If  TIME=CLOCK(i)  and  IEV  >EVENT(i),  for 

any  i=l, (IPTR-1)  Store  in  Location  IPTR 

If  TIME>CLOCK(i),  for  all  i=l, (IPTR-1)  Store  in  Location  IPTR 

For  the  case  where  the  event  is  to  be  stored  in  Location  i  on  the  event  list,  since  an  event  is  already  stored  in 
that  location,  each  event  in  locations  i  through  (IPTR-1)  will  be  moved  back  one  location  as  follows,  for 
m=i  through  (IPTR-1) 

EVENT(m+ 1  )=EVENT(m) 

CLOCK(m+ 1  )=CLOCK(m) 

WORDS(k,m+l)=WORDS(k,m),  for  k=l,6 
FTIMES(m+l)=FTIME(m) 


Type  of  event 

Time  (clock  time)  event  is  scheduled  to  occur 
Information  about  the  event 
Time  (clock  time)  item  failed 
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The  event  just  scheduled  is  placed  into  Location  “x”  of  the  event  list  by  the  following  storage  assignments: 

EVENT(x)=IEV 
CLOCK(x)=TIME 
WORDS(j,x)=WORD(j),  for  j=l  ,6 
FTIMES(x)=FTIME 
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SUBROUTINE  SNE i IE  V  * T I  ME  * WORO* FTIME) 

INTEGER  WORO (6) *E VENT  *  WORDS 

CO MMON/SNTN/ CLOCK (3  30 )  ,EV ENT (300) * IPTR* WORDS (6  * 3 0 0  > *  FT IMES (300 ) 

IF(IPTR.EQ.J)G0T02 

IF(IPTR.EQ.300)GOTO5 

DO  1  1*1 * IPTR 

IF (CLOCK(I) *LT *T I  ME) GOT Q1 

IF (CLOCK* I) .EQ« TIME. A  NO. EVENT (I) . LE . I EV > GOT 01 
GOTOr 

1  CONTINUE 

2  IPTR* IPTR+1 
EVENT (IPTR)*IEV 
CL0CK<IPTR)*TIHE 
00  3  1*1*6 

3  WORDS ( I  *  I PTR) *WORO(I> 

FTIMES(IPTR)*FTIME 

RETURN 

7  IPTR* IPTR+1 

J* IPT  R 

4  EVENT (J)*EVENT(J-1> 

CLOCK (J)*CLOCK(J-l) 

00  5  K= 1  *  6 

5  WOROS (K* J)=W0ROS(K* J-l) 

FTIMES(J)=FTIMES( J-l) 

J=J-1 

IF ( J • NE  •  I )  GOT 04 
EVENT  ( I ) *  IE V 
CLOCK (I)*TIME 
DO  6  K*1 *  6 

6  WORDS(K* I)*WORD(K) 

FTIMES(I) *FTINE 
RETURN 

6  WR ITE (6*9) 

9  FORMA  T (39H  DIMENSION  OF  EVENT  LIST  EXCEEOEO  LIMIT) 

STOP 

END 
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6.11  SUBROUTINE  TNE 

Called  By:  Executive  Routine 

Abstract: 

This  subroutine  removes  the  event  in  Location  1  from  the  event  list.  If  the  time  the  first  event  on 
the  event  list  is  to  occur  is  greater  than  the  mission  duration  (CLOCK(l)  >  GTIME),  control  of  the  program 
is  returned  to  the  Executive  Routine.  If  CLOCK(l)  <  GTIME,  the  event  in  Location  1  of  the  event  list  is 
removed  by  storing  the  following  information  into  the  variables  as  indicated  here 

TIME=CLOCK(l)  Time  (clock  time)  event  is  scheduled  to  occur 

IEV=EVENT(1)  Type  of  event 

WORD(j)=WORDS(j,l),  for  j=l  ,6  Information  about  the  event 

FTIME=FTIMES(1)  Time  (clock  time)  item  failed 

To  indicate  that  an  event  is  being  removed  from  the  event  list,  the  variable  IPTR  which  records  the 
number  of  events  presently  stored  on  the  event  list  is  decremented  (IPTR-IPTR-l).  If  any  events  are  still  on 
the  event  list  (IPTR#)),  each  of  them  will  be  moved  up  one  location  as  indicated  here,  for  L=1  through  IPTR 

EVENT(m)=EVENT(m+l) 

CLOCK(m)=CLOCK(rn+ 1 ) 

WORDS(j,m)==WORDS(j,m+l ),  for  j=l,6 
FTIMES(m)=FTIMES(m+l) 

Control  of  the  program  is  then  transferred  to  a  subroutine  (depending  on  the  value  in  IEV)  as  follows: 

IEV=1  Subroutine  QULENTH 

IEV=2  Subroutine  COMPS 

IEV=4  Subroutine  ARRVL 

IEV=6  Subroutine  FAIL 
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SUBROUTINE  TNE 

INTEGER  WORD (6) t  E  VENT  *  WORDS 

C0MM0N/N1/GTIME*IECHAV(5) , NOT YPE * NUNI T , IOC T * NM I*  KM I* IE AU < 3 *  1C > 

1  «  PCT  R  <  3 1  ,PF(5) tCLASS 

COMMON/SNT N/ CLOCK ( 33 Q ) tEVENTC300) ,IPTR* WORDS (6 , 3 0 0 ) * FT IMES (300 ) 
100  IF(CLOCK(l) «GT • GT IME) RETURN 

IE V=E  VENT  (1) 

T I  ME*  CLOC K  < 1 ) 

DO  9  1*1*6 

9  WORO(  I ) *  WOROS (1*1) 

FT IME  *FT I MES ( 1 ) 

IP  TRC IPT  R-l 
IF (IPTR.EQ.0)GOTO3 
OO  5  1*1* IPTR 
EVENT  (I)  *EVENT  (IM) 

CLOCK  (I)sCLOCK(I+l) 

00  7  J*  1  *  6 

7  WORDS (J, I) *WOROS t J* I*l> 

FTIMES(I)=FTlMES(in) 

8  CONTINUE 

3  GOTO (  1*2*595*4*59  5*6)  IEV 

1  CALL  QULENTH ( T IME  *  WORD  *  FT IME) 

GOTOIOO 

2  CALL  CCMPS(TIME*W0RD*FTIME) 

GOTOIOO 

4  CALL  ARRVL(TIME*WORD*FTIME) 

GOTOIOO 

6  CALL  FAIL(TIME*W0R0,FTIME) 

GOTOIOO 

595  WRITE (6*596) IEV 

596  FORMA T ( 18H  ILLEGAL  EVENT  N0**I5.11H  WAS  CALLED) 

STOP 

END 


6.12  SUBROUTINE  FAIL(TIME,WORD,FTIME) 


Called  By:  Subroutine  TNE 

Parameters  Used: 

TIME  Time  (clock  time)  subroutine  is  entered 

W0RD(1)  Type  of  failed  item 

W0RD(2)  Unit  number  of  item 

Abstract: 

A  failure  has  been  simulated  for  the  item  whose  type  is  represented  by  variable  WORD(  1 )  and 
whose  unit  is  represented  by  variable  WORD(2)  at  the  present  clock  time,  TIME.  The  variable 
NOFAlL(WORD(l ),  WORD(2))  which  records  the  total  number  of  times  failures  have  been  simulated 
for  this  item  is  incremented  (NOFAlL(WORD(l),WORD(2))=NOFAIL(WORD(l),WORD(2))+l).  The 
echelon  level  at  which  the  item  is  to  be  repaired  is  computed  from  the  variable  PF(i)  (percentage  of 
items  that  fail  requiring  ith-echelon  repair)  and  a  generated  random  number,  and  is  stored  in  the 
variable  WORD(5). 

When  an  item  fails,  it  can  undergo  repair 

•  at  the  seabase 

•  ashore  by  CT 

•  at  the  unit 

or  be  discarded,  as  determined  by  the  following  logic: 

If  the  item  requires  either  2nd -echelon  repair  (WORD(5)=2)  or  3rd -echelon  repair  (WORD(5)=3) 
and  if  this  capability  exists  at  the  unit  (IEAU(WORD(5),WORD(2))=l),  the  failed  item  will  be  repaired  there. 
The  item  will  be  discarded  if  the  required  echelon  of  repair  does  not  exist  at  either  the  unit 
(IEAU(WORD(5),WORD(2))=0)  or  the  seabase  (IECHAV(WORD(5))=0).  If  the  seabase  has  the  required 
echelon  of  repair  (IECHAV(WORD(5))=l),  the  item  will  either  be  repaired  at  the  seabase  or  ashore  by  a  CT. 

If  fourth-echelon  repair  is  required  (WORD(5)=4)  or  if  repair  by  a  CT  is  not  specified  (IDCT=2),  then  the 
item  will  be  repaired  at  the  seabase.  If  2nd  -  or  3rd -echelon  repair  is  required  and  repair  by  a  CT  is  specified, 
the  variable  PCTR(i)  (percentage  of  items  repaired  by  CT’s  requiring  ith-echelon  repair)  and  a  generated 
random  number  between  zero  and  one,  determine  whether  the  item  is  to  be  repaired  at  the  seabase  or  ashore 
by  a  CT. 

Repair  at  the  Seabase 

Subroutine  REQUST  is  called  to  determine  if  a  replacement  item  of  type  WORD(l)  is  available  from 
the  float.  The  priority  of  the  failed  item  will  be  assigned  in  Subroutine  REQUST  and  stored  as  the  variable 
WORD(2)  (replacing  the  unit  number  of  the  failed  item). 

The  failed  item  will  be  transported  to  the  seabase  for  repair  if  the  present  length  of  the  seabase 
queue  afloat  is  less  than  the  specified  limit  (NISQ  <  LIMIT).  An  arrival  is  scheduled  by  storing  an  arrival 
event  on  the  event  list  (see  Section  7.2.1).  If  a  queue  has  formed  at  the  seabase  and  if  its  present  length 
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is  greater  than  or  equal  to  the  specified  limit  (NISQ  > LIMIT),  the  failed  item  will  be  transported  to  the 
seabase  queue  ashore.  An  arrival  is  scheduled  by  storing  an  arrival  event  on  the  event  list  (see  Section  7.2.2). 
After  the  destination  of  the  item  is  determined,  control  of  the  program  is  returned  to  Subroutine  TNE. 

Repair  Ashore  by  a  CT 

When  a  failed  item  requires  repair  by  a  CT,  the  value  of  the  input  variable  IDCT  determines  whether 
a  dedicated  or  nondedicated  CT  is  required  as  follows: 

IDCT=0  Nondedicated  CT  required 

1DCT=1  Dedicated  CT  required 

By  a  Nondedicated  CT 

If  the  number  of  items  being  repaired  (NICTS)  by  CT’s  equals  the  specified  number  of  items 
allowed  to  be  repaired  simultaneously  by  CT’s  (NICTS=NCTS),  the  failed  item  is  added  to  the  CT  queue  (see 
Section  8.0).  Control  of  the  program  is  returned  to  Subroutine  TNE.  If  the  number  of  items  being  repaired 
by  CT’s  is  less  than  the  specified  number  of  items  allowed  to  be  repaired  simultaneously  by  CT’s,  the  failed 
item  will  be  repaired  by  a  CT.  In  some  cases,  when  a  nondedicated  CT  leaves  the  shop,  the  seabase  repair 
capability  will  not  be  affected;  in  other  cases  it  will,  depending  on  the  number  of  CT’s  already  ashore.  To 
simulate  these  conditions  in  the  program,  it  was  necessary  to  introduce  two  types  of  nondedicated  CT’s: 

•  Regular 

•  Phantom 

Ashore  they  are  indistinguishable  in  their  repair  capability;  their  use  is  strictly  a  programming  device.  A 
“regular”  CT  decreases  the  capability  when  removed  from  the  seabase.  A  “phantom”  CT  will  not.  The  array 
NDCS(i)  (decrease  in  seabase  repair  capability  as  CT’s  depart)  determines  whether  a  regular  or  phantom  CT  is 
required  ashore  as  indicated  here. 

If  N1CTS=0  A  phantom  CT  is  required 

If  NDCS(NICTS)=NDCS(NICTS+1 )  A  phantom  CT  is  required 

If  NDCS(NICTS)fNDCS(NICTS+l )  A  regular  CT  is  required 

Once  the  type  of  CT  required  has  been  determined,  its  availability  is  determined. 

A  regular  CT  required  ashore  will  be  sent  if  maintenance  personnel  are  available  at  the 
seabase  (if  ISS(i)=0,  for  any  i=l  through  NSS).  The  maintenance  personnel  are  transported  ashore  as  a  CT 
with  an  identification  number  i  to  repair  the  failed  item.  The  repair  is  scheduled  by  storing  a  complete 
service  event  on  the  event  list  (see  Section  7.3.2).  Control  of  the  program  is  returned  to  Subroutine  TNE.  If 
a  regular  CT  is  required  but  one  is  not  available  (if  ISS(i)— 0,  for  all  i^l  through  NSS),  the  failed  item  is  added  to 
the  CT  queue  (see  Section  8.0).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 

Suppose  a  phantom  CT  is  required  ashore.  An  input  to  the  program  is  the  total  number  of 
phantom  CT’s  specified,  NPS.  The  phantom  CT’s  are  given  identification  numbers  ranging  from  (NSS+1) 
through  (NSS+NPS).  Phantom  CT  number  i  is  sent  ashore  to  repair  the  failed  item  if  ISS(i)=0,  for  any 
i=  (NSS+1)  through  (NSS+NPS).  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see 
Section  7.3.2).  Control  of  the  program  is  returned  to  subroutine  TNE.  If  a  phantom  CT  is  required  but  one 
is  not  available  (if  ISS(i)^0,  for  all  i=  (NSS+1)  through  (NSS+NPS)),  the  failed  item  is  added  to  the  CT  queue 
(see  Section  8.0).  Control  of  the  program  is  returned  to  Subroutine  TNE. 
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By  a  Dedicated  CT 

A  dedicated  CT  required  ashore  will  be  sent  a)  from  a  point  ashore  if  ICTS(i)=0,  for  any  i=l 
through  NCTS,  or  b)  from  the  seabase  if  ICTS(i)=(NOTYPE+l)  for  any  i=l  through  NCTS.  Repair  by  CT 
number  i  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see  Section  7.3.4).  Control  of  the 
program  is  returned  to  Subroutine  TNE.  If  a  dedicated  CT  is  required  but  one  is  not  available,  the  failed  item 
is  added  to  the  CT  queue  (see  Section  8.0).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 

Repair  at  the  Unit 

If  the  number  of  items  being  repaired  at  unit  WORD(2)  is  less  than  a  specified  input  value 
(NIUS(WORD(2))  <NUS),  the  failed  item  will  be  repaired.  Repair  is  scheduled  by  storing  a  complete  service 
event  on  the  event  list  (see  Section  7.3.3).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 

If  the  number  of  items  being  repaired  at  unit  WORD(2)  equals  a  specified  input  value  (NIUS(WORD(2))=NUS), 
the  failed  item  is  added  to  the  unit  queue  (see  Section  8.0).  Control  of  the  program  is  returned  to 
Subroutine  TNE. 

Discard 

If  the  failed  end  item  cannot  be  repaired,  the  unit  requires  a  replacement  item  of  type  WORD(l) 
from  the  float.  Subroutine  REQUST  is  called  to  determine  if  one  is  available.  The  variable  NDISC(WORD(l)) 
which  records  the  total  number  of  times  item  type  WORD(l)  is  discarded  is  incremented  (NDISC(WORD(l)) 
=NDISC(WORD(l  ))+l).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 
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13 


15 


20 


25 


30 


35 


SUBROUTINE  FA IL (T IME, WORO ,FTI ME ) 

INTEGER  WORO ( 6 ) 

COMMON/Nl/GTIME,IECHA V(5) . NOT YPE , NUN  IT , IDCT ,  NM I,  KMI.IEAUC3.10) 

1  ,PCTR<3) ,  PF (5) fCLASS 
C0MM0N/N2/NCTS,NSS,NU$ 

COMMON/N5/ICTQ(20Q) , I$Q(2uC) , ISQA (20  0  ) , IS S ( 1 0 ) , I UQ (20 0  *  1 C >  t N IC TQt 
1  NICTS,NISQ,NISQA,NIUQ(10)  .NIUSUO)  , NP I S Q ( 200  > , NP ISQ A  (2  00  t 
1  NUICTQ(200) »TICTQ(2  00) ,TISQ (200  I .TISQA (2  301 ,TIUQ(200 *10) 

1  fNESO(2IO) ,NESQA (200  ) tNEUQ(20Ctl0) tNECTa(200) flCTS(lO)  . 
C0MM0N/N6/LIMDIM,LIMIT.T1 ,  T2» IOPTl, I OPT 2 f IOPT3 
C0MM0N/N7/DTH(15Q , 10 )  , HQE (13) , HWI Q ( 13 ) , LENTHC (13 ) ,  LENT  HQ (13) , 

1  MAXQL  (13) .NENTER (13) ,QL (13) ,TQBE (13) ,WT (13) ,NDI SC (150 ) , NOREQ ( 150 > 
1  ,HCTW(10) tTCT9F( 10) , HSSW(iO) ,TSSBF(1Q> , TRTS ,N IE R ( 13 ) , IMAXQL (13) 

1  ,  INE  NTR ( 13 ) f TIME  I NT, HUSW (10) , TUS BF ( 1 0 ) ♦ NOF A IL ( 1 50 , 10 ) 
C0MM0N/N9/NDCS(5) ,NPS 
DATA  ICOMPSi lARRVLt IFAIL/2,4.6/ 

C  END  ITEM  TYPE  WORD(l)  FROM  UNIT  NO.  WORDC2)  FAILS  AT  TIME 
NOFAIL (WORD (1) ,W0R0(2) ) -NOF A I L (HORO ( 1 ) .WORD (2) )*1 
C  GENERATE  ECHELON  OF  REPAIR 
RN=RANF(OUM) 

Bls-0  • 

B2  =  J. 

DO  500  1=2,5 
B2=PF  Cl) ♦ B2 

IF (RN.GT.B1.ANO.RN.LE.B2) HORO (5)=I 
B1  =  B2 

500  CONTINUE 

IF (IOPT1.EQ.1) WRITE (6 ♦ 200 ) WORD  CD  .WORD (2) , T I  ME .WORD (5 ) 

200  FORMA T ( / , 14H  END  ITEM  TYPE.I2.13H  FROM  UNIT  NO. 12.  9H  FAILS  AT. 

1  F6.1.28H  HRS.  MAINTENANCE  AT  ECHELON . 1 2 . 12H  IS  REQUIRED) 

Z  DETERMINE  LOCATION  OF  REPAIR 

IF ((WORD (5) .EQ. 2. OR. WORD (5) .EQ.3) . AND . I EAU ( WORDC  5 ) .WORD C 2) ) .EO.ll 
1  GOT  0 10  2 

IF (IECHAV(WORD(5) ) . EQ . 0 ) GOT 01 0 3 
RN=RANF (OUM) 

IF ( IDCT. NE. 2. AND. (WORD (5) .EQ. 2 .OR. WORD ( 5) . EQ . 3 ) . AND . RN .1 T . PCTR CWOR 
10(5))) GOT  01Q1 
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COMMENT  REPAIR  ENO  ITEM  TYPE  WORO(l)  AT  SEABASED  MAINTENANCE  SHOP 
CALL  REQUST(TIME.WORO) 

IFCNISQ.GE. LIMIT) GOTOl 

C  TRANSPORT  FAILED  END  ITEM  TO  SEABASED  MAINTENANCE  SHOP 
WORD ( 6) = 1 

CALL  SNEC IARRVL.T IME+Tl.WORD.FTIME) 

IFCIOPTl.EQ.O) RETURN 
WRITE  (6,201) 

201  FORMA  T ( 45H  REPAIR  ENO  ITEM  AT  SEABASED  MAINTENANCE  SHOP) 

WRITE  (6,211) W0R0(2) 

211  FORMA  T (52H  TRANSPORT  END  ITEM  TO  SB  MAINT  SHOP  WITH  A  PRIOR  OF, 12) 
RETURN 

C  TRANSPORT  FAILEO  ENO  ITEM  TO  SEA9ASE0  QUEUE  ASHORE 
1  WORD ( 6) =  2 

CALL  SNE ( IARRVL.T I ME+T 2, WORD, ETIME) 

IF (IOPTl.EQ.O) RETURN 
WRITE (6,201) 
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60 


65 


70 


75 


80 


85 


90 


95 


100 


105 


110 


WRITE (6  *  204) WORD ( 2 I 

2  04  FORMA  T  (63H  TRANSPORT  END  ITEM  TO  SEA8ASE0  QUEUE  ASHORE  WITH  A  PRIO 
1RITY  OF, 12) 

RETURN 

COMMENT  REPAIR  END  ITEM  TYPE  WORO(l)  WITH  CT 
101  CONTINUE 

IF  (IDCT.EQ.l) G0T07 
C  NON-DEDICATED  CT  ARE  SPECIFIED 
IF  (NICTS.EQ.NCTS) G0T02 
IF  (NICTS.EQ.O)GOTOU 

IF (NDCS(NICTS) . EQ. NDCS (NICTS+1) > GOT013 
C  REGULAR  C.T.  IS  REQUIRED 
DO  5  NSERVR*1 , NSS 
IF  (ISS ( NSERVR) .NE.0IGOTO5 

C  TRANSPORT  SHOP  MAINT  PERSONNEL  ASHORE  AS  A  CT ,  OECREASE  SHOP  REPAIR  CAPABILITY 
NIER(3)*NIER(3>+1 
ISS ( NSERVR) *NOTYPE+l 
NICTS=NICTSU 
WORD ( 3) =NSERVR 
WORD (6) *2 
FT IME  =  T I  ME 

CALL  GENTTR(WORO, TTR) 

CALL  SNE(ICOMPS,TIME+TTR+T1,WORO,FTIME) 

TCTBF  (WORD (3 ) )=TIME+T1 
TRTS=  T 1 +  TRTS 
IF (IOPT1.EQ.O) RETURN 
WRITE  (6,202) 

202  FORMA T (22H  REPAIR  END  ITEM  BY  CT) 

RTIME=TIME+TTR+T1 
WRITE (6,206)NSERVR,RTIME 

206  FORMA T ( 31 H  SHOP  MAINT  PERS  FROM  SPACE  NO.I2.87H  ARE  AVAIL  IMMEDIAT 
1EL V  TO  REPAIR  END  ITEM,  SO  SEND  HIM  ASHORE.  HE  WILL  FINISH  REPAIR 
1AT ,F6.1,5H  HRS.) 

WRITE (6,219) 

219  FORMAT ( 37H  NOTE-DECREASE  SHOP  REPAIR  CAPABILITY) 

RETURN 

5  CONTINUE 

C  ADO  END  ITEM  TO  CT  QUEUE 
2  NICTQ=NICTQ+1 

IF (NICTQ. GT.L IMDI M) G0T04 
ICTQ(NICTQ)*WORO(l) 

TICTQ (NICTQ) =T IME 
NUICTQ( NICTQ) =WORD (2) 

NECTQ(NICTQ)=WORD(5) 

IF(NICTQ.EQ.1)HQE(3)»TIME-TQBE(3)+HQE(3) 

NENTE  R ( 3 ) =NENTER ( 3) +1 
IF(MAXQL(3> .LT. NICTQ) MAXQL (3) =NICTQ 
IF (IOPTl.EQ.O)RETURN 
WRITE  (6,202) 

IF(IDCT.EQ.O) WRITE (6, 207) 

207  FORMA T ( 59H  NO  SHOP  MAINTENANCE  PERSONNEL  ARE  AVAIL  TO  REPAIR  END  I 
ITEM) 

IF (IDCT.EQ.l) WRITE (6, 213) 

213  FORMA T ( 46H  NO  DEDICATED  C.T.  IS  AVAIL  TO  REPAIR  ENO  ITEM) 
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CALL  RITCTO 
RETURN 

C  PHANTOM  C.T.  IS  REQUIRED 

13  JJ  =  NS  S  +  l 

115  KK=NSS+NPS 

DO  14  II=JJ,KK 
IF  (ISS(II) .NE.OJGOT014 

C  TRANSPORT  MAINT  PERSONNEL  ASHORE  AS  A  CT,  DO  NOT  DECREASE  CAPACITY  OF  SHOP 
NIER(3)=NIER(3)+1 

120  ISStI I)=NOTYPE+l 

NICTS=NICTS*1 
WORD ( 3 ) = 1 1 
WORD ( 6) =2 
FT  IME  =T I  ME 

125  CALL  GENTTR(WORD,TTR) 

CALL  SNE ( ICOMPS, T IME +TTRFT 1, WORD, FTIME) 

TCTBF  ( WORO ( 3 ) )=TIME+T1 
TRTS=T1+TRTS 
IF (IOPTl.EQ.O)RETURN 
130  WR IT  E (6,202) 

RT  IME  =  TIME+,TTR  +  Tl 
WRITE  (6,206) II, RTIME 
WRITE  (6,217) 

217  FORMAT (44H  NOTE-DO  NOT  DECREASE  SHOP  REPAIR  CAPABILITY) 

135  RETURN 

14  CONTINUE 
G0T02 

C  DEDICATED  CT  ARE  SPECIFIED 

7  CONTINUE 

140  DO  8  1=1 , NCTS 

IFUCTS(I)  •  EQ.  0 ) G0T09 

8  CONTINUE 

DO  10  1=1, NCTS 

IFdCTS(I)  .EQ.NOTYPE  +  DGOTOll 
145  10  CONTINUE 

G0T02 

C  C.T.  NO.  II  IS  AVAILABLE  FROM  THE  SEABASE 

11  TR ANS  P=  T 1 

IF (IOPT1.EQ.O)GOT012 
150  WRITE (6,202) 

WRITE  (6,214)1 

214  FORMAT ( 7H  CT  N0.,I2,65H  IS  AVAIL  FROM  THE  SEABASE  TO  REPAIR  END  IT 

1EM,  SO  SEND  HIM  ASHORE) 

G0T012 

155  C  CT  NO.  II  IS  AVAILABLE  AT  A  POINT  ASHORE 

9  TRANSP=T2 

IF (IOPTl.EQ.0)GOTO12 
WRITE (6,202) 

WRITE (6,215) I 

160  215  FORMA  T ( 7H  CT  N0.,I2,67H  IS  AVAIL  FROM  POINT  ASHORE  TO  REPAIR  END  I 

ITEM,  SO  SEND  HIM  TO  ITEM) 

12  ICTS ( I ) =WORD ( 1 ) 

NIER(3)=NIER(3)+1 
WORD ( 3) = I 
WORD ( 6) =4 
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FT IME  =T  I  ME 

CALL  GENTTR ( WORD  ,  TTR) 

CALL  SNE (ICOMPS,TIME*TRANSP+TTR,WORO,FTIME) 

TCT8F (WORD ( 3 ) ) * TI ME+T RANSP 
TRTS=TRTS+TRANSP 
RT IME=TIME+TRANSP+TTR 
IF (IOPTl.EQ.l) WRITE (6,216 >RTI ME 
216  FORMA  T ( 25 H  HE  WILL  FINISH  REPAIR  AT,F6.1,4H  HRS) 

RETURN 

4  WR ITE (6,298) 

208  FORMAT ( 49H  NUMBER  OF  ITEMS  IN  CT  QUEUE  EXCEEDED  UPPER  LIMIT) 
STOP 
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COMMENT  REPAIR  END  ITEM  TYPE  WORO(l)  AT  UNIT  W0RD(2) 

102  CONTINUE 

IF (NI US (WORD (2) ) . EO.NUS)GOT03 
C  UNIT  MAINT  PERSONNEL  IS  AVAILABLE  FOR  REPAIR 
NIER( 3+WORD (2 ) ) =N IER ( 3+WORD (2 ) ) +1 
NIUS ( WORD (2) ) sNIUS ( WORD ( 2 ) ) +1 
TUSBF  (WORD (2 ) ) =TI ME 
WORD ( 6) =3 
FT  IME  =T  I  ME 

CALL  GENTTR(WORO.TTR) 

CALL  SNE ( ICOMPS, TIME* TTR, WORD, FTI ME) 

IF (IOPTl.EQ.O)RETURN 
WRITE  (6,203) 

203  FORMA  T (28H  REPAIR  END  ITEM  AT  ITS  UNIT) 

RTIME=TIME+TTR 
WRITE  (6,205)RTIME 

205  FORMA  T ( 95H  END  ITEM  CAN  BE  REPAIRED  IMMEDIATELY  BY  A  UNIT  MAINTENA 
1NCE  PEESONNEL.  HE  WILL  FINISH  REPAIR  AT,F6.1,5H  HRS.) 

RETURN 

C  ADD  END  ITEM  TO  UNIT  NO.  W0RD<2)  QUEUE 
3  NIUQ(WORO (2) )=NIUQ(WORD(2) )  *1 

IF(NIUQ(WORD(2) ) . GT . L IMOI M) GOT06 
IUQ(NIUQ(W0RD(2)) .WORD (2) )=WORD(l) 

TIUQ(NIUQ(W0R0(2) ) , WORD ( 2 ) ) =T I  ME 
NEUQ(NIUQ(WORD(2) ) ,WORD(2) )=WORD(5> 

IF  ( NI UQ  (WORD  ( 2  )  ) .  EQ.DHQE  (3+WORD  ( 2 ) )  *TI ME-TQBE  (3+WORO  (2)  )♦ 

1  HQE  (3  +  W0RD(2H 

NE NTER(3+WORD(2) ) =NENTER ( 3+WORD (2 ) > *1 
IF (MAXOL (3+W0RD(2) ) . L T . NIUQ (WORD ( 2) ) ) 

1  MAXQL(3+WORD(2) ) =NIUQ ( WORD ( 2) ) 

IF (IOPTl.EQ.O)RETURN 
WRITE (6,203) 

WRITE  (6,209) 

209  FORMA  T(59H  NO  UNIT  MAINTENANCE  PERSONNEL  ARE  AVAIL  TO  REPAIR  ENO  I 
ITEM) 

CALL  RITEUQ(WORO) 

RETURN 

6  WRITE  (6,212) 

212  FORMA  T ( 5 1H  NUMBER  OF  ITEMS  IN  UNIT  QUEUE  EXCEEDED  UPPER  LIMIT) 

STOP 
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COMMENT  THE  NUM3ER  ECHELON  MAINTENANCE  REQUIRED  FOR  THIS  ENO  ITEM  IS  NOT 
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225 


SUBROUTINE  FAIL 

C  AVAILABLE  IN  THE  ATF,  SO  DISCARD  ITEM 

103  CALL  REQUST (TIME, WORD) 

NOTSC ( WORD (1 > >*ND ISC ( WORD <1>) +1 
IF ( I  OPT l.EQ.l) WRITE (6,210) 

2 1 J  FORMA  T (69  H  THIS  ECHELON  MAINT  IS  NOT  AVAIL  IN  THE  ATF,  SO  DISCARO 

1ITFM) 

RETURN 

END 
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6.13  SUBROUTINE  REQUST(TIME,WORD) 


Called  By:  Subroutine  I'M I. 

Parameters  Used: 

TIME 
WORD(l) 

WORD(2) 

WORD(2) 

Abstract: 

This  subroutine  determines  if  a  float  item  of  type  WORD(l)  is  available  from  the  float  for  unit 
WORD(2)  and  then  assigns  the  priority  of  the  failed  item  and  stores  it  as  variable  WORD(2)  (replacing 
the  unit  number  of  the  item). 

If  a  float  item  of  type  WORD(l)  is  not  available  from  the  float  for  unit  WORD(2);  i.e., 

INV(WORD(l  ))=0,  the  unit  registers  a  request  for  one.  To  indicate  that  a  request  for  a  float  item  is 
being  made,  the  variable  NR  which  records  the  present  number  of  requests  registered  at  units  is  updated 
(NR=NR+1).  If  this  number  exceeds  the  maximum  number  of  requests  allowed  (NR  >  LIMDIM),  the 
program  stops;  if  not,  the  unit  registers  a  request  by  storing  the  following  information  into  the  arrays  as 
indicated  here: 

NTRQST(NR)=WORD(l)  Type  of  item  requested  by  unit 
NURQST(NR)=WORD(2)  Unit  (number)  requesting  the  float  item 
TIRQST(NR)=TIME  Time  request  is  being  made 

The  priority  of  the  failed  item  is  determined,  and  is  stored  in  the  variable  WORD(2),  as  follows: 

If  NISQ=0  and  NISQA=0  WORD(2)=2 

If  ISQ(i)^WORD(l)  or  If  ISQ(i)=WORD(l)  and 
NPISQ(i)=2,  for  all  i=l,  NISQ;  and  if 
ISQAO^WORDO)  or  If  ISQA(i)=WORD(l ) 
and  NPISQA(i)=2,  for  all  i=l,  NISQA  WORD(2)=2 

If  ISQ(i)=WORD(l)  and  NPISQ(i)£2,  for  any 

i=l  ,NISQ  WORD(2)=0 

If  ISQA(i)=WORD(l )  and  NPISQA(i)£2,  for 

any  i=l , NISQA  WORD(2)=0 

In  the  last  two  cases,  the  priority  of  the  item  in  Location  i  in  the  seabase  queue  afloat  or  in  the  seabase  queue 
ashore  is  changed  to  two  and  the  item  is  advanced  in  the  queue  according  to  its  new  priority.  Control  of  the 
program  is  returned  to  Subroutine  FAIL. 

If  a  float  item  of  type  WORD(l)  is  available  from  the  float  for  unit  WORD(2),  i.e.,  INV(WORD(l))#),  it 
will  be  transported  to  unit  WORD(2)  ashore  to  begin  operation.  Its  operation  and  subsequent  failure  are 
scheduled  by  storing  a  fail  event  on  the  event  list  (see  Section  7.1).  Variable  INV(WORD(l))  which  records 
the  present  number  of  float  items  available  of  type  WORD(l)  is  decremented  (INV(WORD(1))=INV(WORD(1  ))-l). 
The  total  amount  of  time  all  items  of  type  WORD(l)  from  unit  WORD(2)  were  non-operational 


Time  (clock  time)  subroutine  is  entered 
Type  of  item 

Unit  number  of  item  (Input  Usage) 
Priority  of  item  (Output  Usage) 
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(I)TH(WORD(  I  ),W0RD(2)))  is  updated  by  the  time  interval  which  extends  from  the  time  the  item  failed  to 
the  time  the  float  item  begins  operation. 

DTH(WORD(  1  ).WORD(2))=(TIME+Tl )  -  TIM li  +  DTH(WORD(l  ),WORD(2)) 

The  priority  of  the  failed  item  is  determined,  and  is  stored  in  the  variable  (WORD(2)  as  follows: 

If  INV(WORD(  I  >)^0  WORD(2)=0 

If  N1SQ=0  and  N1S0A=()  WORD(2)=l 

II  lSQ(i)^WORDd).  for  all  i=l,NISQ  and 

ISQAL)fWORD(l),  for  all  i=l, NISQA  WORD(2)=l 

If  !SO(i)=WORD(l)  and  NPlSQQpM  for  any 

i=l  .NISQ  WORD{2)=0 

If  ISQA(i)=WORD(l )  and  NPISQA(i)=l,  for 

any  i=l  .NISQA  WORD(2)=0 

If  lSQ(i)=WORD(  I )  and  NPISQ(i)=2,  for  any 

i=l  ,N1SQ  WORD(2)=l 

If  lSQA(i)=WORD(l)  and  NPlSQA(i)=2,  for 

any  i=l. NISQA  WORD(2)=l 

If  ISQ(i)=WORD(l )  and  NPISQ(i)=0,  for  any 

i=l  ,NISQ  WORD{2)=0 

If  ISQA(i)=WORD(  1 )  and  NPISQA(i)=0,  for 

any  i=l. NISQA  WORD(2)=0 

In  the  last  two  cases,  the  priority  of  the  item  in  Location  i  in  the  seabase  queue  afloat  or  in  the  seabase 
queue  ashore  is  changed  from  zero  to  one  and  is  advanced  in  the  queue  according  to  its  new  priority. 
Control  of  the  program  is  returned  to  Subroutine  FAIL. 
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SUBROUTINE  REQUST (TIME, WORD) 

INTEGER  W ORD ( 6 ) 

COMMON/N2/NCTS,NSS,NUS 

COHMO  N/N3/INV(  150  )  t  NEK  30,10 )  ♦NEI  (150  )  »NL  1ST  (1G)  ,  NR,  NT  RQST  (200  ), 

1  NURQST (200  ) , T IRQST (200) , TYPE  NO ( 3 0 , 1 0 ) , TAMNO  (150 ) 

COMMON/ N5/ICTQ (200  ) ,ISO(20G) , I SQA ( 2Q 0 > , ISS t 1 0 ) , I UQ (2 G G , 1 0 > , N IC TQ , 

1  NICTS, NISQ, NISQA, NIUQ(IO) ,NIUS( 10) ,NPISQ(2GG ) ,NPISQA  (200  ) , 

1  NUICTQ(2u0) »TICTQ (200) ,TISQ(200) ,TISQA(200) , TIUQ(200,10) 
i  , NESQ(230) ,NESQA ( 2 0 0 ) , NE UQ ( 2 0 0 , 1 0 ) , NEC TQ ( 20 0 ) •ICTS(IQ) 
C0MM0N/N6/LIMDIM,LIMIT,T1,T2, I0PT1,I0PT2,I0PT3 
COMMON/N7/DTH(15Q , 10 ) ,HQE (13) , HWI Q ( 1 3 ) , LE NT HC ( 13 ) , LENT  HQ (13)  , 

1  M AXQ  L ( 1 3 ) ,NENTER (13) ,Ql(13) ,TQBE(13) ,WT(13) ,N0ISC(15Q ) f NOREQ(150 ) 
1  , HCTW(10) ,TCTBF(10),HSSM(10) , TSS BF ( 1 0 ) , T RTS ,NIE R ( 13 ) # IMAXQL ( 13 ) 

1  , INENTR(13) fTIMEINT , HUSW ( 10 ) , TUS BF ( 1 0 ) , NOE  A IL ( 1 50 , 10 ) 

DATA  ICON PS, IARRVLtIFAlL/2,4,6/ 

IF  <INV( WORO(l) ) ,EQ. 0) GOTO! 

0  A  FLOAT  ITEM  IS  AVAILABLE 

INV( WORD (1) >*INV< WORD (1) ) -1 
IF (IOPTl.EQ.i) WRITE (6 ,200) INV (WORD(i) ) 

2  00  FORMA  T ( 3  2  H  A  REPL  IS  AVAIL.  NEW  INV  LEVEL*,I2) 

CALL  GENTTF(WORD,TTF) 

CALL  SNE  ( IFAIL,TIME4*TTF  +  T1,W0RD,FTIME) 

OTH(WORO (1) ,WORO(2) )=Tl+DTH(WORD( 1) , WORD (2) ) 

WORD ( 2) - 0 

IF (INV (WORD (1) ) .NE.O) RETURN 
WORD ( 2) =1 

IF (NISO. EQ.0) RETURN 
WORO ( 2 ) *0 
DO  9  1  =  1 1 NISQ 

IF  CISQ(I) .EQ. WORD (1) .AND. NPISQ(I) .EQ.l) RETURN 

9  CONTINUE 

IF (NISQA.EQ.0) GOT 013 
00  14  1=1 , NISQA 

IF (ISQA(I) .EQ.WORO(l) . AND . NPI SQA ( I ) . EQ. 1 ) RETURN 
14  CONTINUE 

13  00  16  1=1, NISQ 

IF (ISQ(I) .EQ. WORD (1) . AND . NPIS Q ( I ) .EQ.O) GOTOIO 

16  CONTINUE 
WORD ( 2) =1 

IF (NI SQA • EQ. 0 ) RET  URN 
00  17  Is 1 • NISQA 

IF (ISQA(I) • EQ. WORD ( 1) . AND . NPI SQA ( I ) . EQ. 0 ) GOT  01 6 

17  CONTINUE 
RETURN 

10  NP ISQ  ( I ) = 1 

IF (IOPTl.EQ.i) WRITE (6,201) I 

201  FORMA  T ( 65H  CHANGE  PRIORITY  OF  THE  ITEM  IN  SEABASED  QUEUE  AFLOAT  IN 

1  LOCATION, 13, 22H  TO  1  AND  UPOATE  QUEUE) 

IF ( I • EQ. 1) RETURN 
K=I-1 

00  5  J= 1 ,  K 

IF ( NP ISQ ( J ) • EQ. 2) GOTO  5 

IF(NPISQ( J) .EQ.l. AND. TISQ(J) .LE.TISQCI) )G0T05 
I I SQ= ISQ ( I ) 

TT ISQ  =T I S  Q ( I ) 
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subroutine  requst 
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65 


70 


75 


80 


85 


90 


95 


100 


105 


110 


INESQ=NESQ( I) 

11  I S G  C I )  =  ISQ ( I - 1 ) 

TISQ( I)  =  T ISQ  ( 1-1) 

NPISQ (I)=NPISQ(I-1) 

NESQ  ( I ) =NESQ ( 1*1) 

1=1-1 

IF  Cl, NE • J ) GOT  Oil 
ISOt J)=IISQ 
T I SQ ( J) =  T  T I SQ 
NESQ  (  J)  =  INESQ 
NPISQ  (J) =1 

IF (IOPT3.EQ.l>CALL  RITESQ 
RETURN 

5  CONTINUE 

IF (IQPT3.EQ.1) CALL  RITESQ 
RETURN 

18  NP ISQ  A ( I ) = 1 
WORO( 2) *0 

IF (IOPTl.EQ.l) WRITE (6,205) I 

205  FORMA  T  ( 1 9H  CHANGE  PRIORITY  OFfI3*52H  ITEM  IN  SEA  BASED  QUEUE  ASHORE 
1  TO  1  AND  UPDATE  QUEUE) 

IF ( I  *  EQ. 1 ) RETURN 
<=I-1 

DO  19  J=1,K 

IF (NPISQA  ( J) . EQ • 2 ) GOT  019 

IF  (NPISQA (J) .EQ.l.ANO.TISQA(J) .LE.TISQA (I) > GOT 01 9 
1 1 SQA  =  1 SQ  A ( I ) 

TT ISQ  A*T I SQ A ( I) 

INESQ  A=NESQA ( I ) 

12  ISQAt I ) * I SQA ( I  -1 ) 

TISQA (I) =  T ISQ A ( I  - 1 ) 

NPISQA (I) =NPISQA ( I  - 1 ) 

NESQA  ( I )  =  NESQA ( I- 1 ) 

1=1-1 

IF ( I . NE • J ) GOT012 
I SQA ( J ) = I ISQA 
TISQA ( J) =  T  T IS  QA 
NESQA  ( J ) = INESQA 
NPISQA(J) =1 

IF(IOPT3.EQ.l)CALL  RITSQA 
RETURN 

19  CONTINUE 

IF (IOPT3.EQ.1) CALL  RITSQA 
RETURN 

C  A  FLOAT  ITEM  IS  NOT  AVAILABLE 
1  NR  =  NRn 

IF (NR.GT. LIMDIMJGOTO207 
IF (IOPTl.EQ.l) WRITE (6, 20 3) 

203  FORMA  T ( 1 7H  NO  REPL  IS  AVAIL) 

NTRQS  T (NR) =WORD ( 1 > 

NURQST (NR)=WORD(2 ) 

TIRQST(NR) =T I  ME 
IF (IOPTl.EQ.l)CALL  riterq 
WORD ( 2 )  =  2 

IF (NISQ.EQ.0) RETURN 
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SUBROUTINE  REQUST 


115 


123 


125 


130 


135 


140 


145 


150 


155 


160 


165 


00  3  1*1  * N  ISQ 

If  (IS  Q  (I)  .EQ.MORO(l)  . AND . NP IS  Q ( I (  ,NE.2)G0T04 

3  CONTINUE 

If  (NISQA.EQ.O) RETURN 
00  21  1*1 *  NISQA 

If (ISQA(I) .EQ.WORD(l) . ANO . NPISQA ( I» ,NE.2)G0T02C 
21  CONTINUE 

RETURN 

4  NPISQ (I) *2 
WORO ( 2) *3 

if ( io PTi.Eo.i) Write i 6,234) i 

204  fORNA  T (58H  A  REPU  NAS  fOUND  IN  THE  SE  ABASED  QUEUE  AflOAT  IN  10CATI 
ION, 13,254  CHANGE  ITS  PRIORITY  TO  2) 

If  ( I . EQ . 1 ) RETURN 
K*  1*1 

00  6  U* 1 , K 

If (NPISQ( J» .EQ.2. ANO.TISQ(J) .UE.TISQ(I» )G0T06 
I ISQ* ISQ ( I ) 

TT ISQ  =T ISQ ( I ) 

INESQ=NESQ ( I) 
f)  ISQ(I )*ISQ(I-1> 

TISQ{ I )  =  T ISQ  1 1 -11 
NPISa(U=NPrSQ(I-l) 

NESQ ( I) =  NESQ ( 1-1) 

1=1-1 

If (I.NE.J)G0T08 
ISO(J)=IISQ 
TISQ( J)*TTISQ 
NESQ ( J) *INESQ 
NPISQ (J) =2 

If  (I0PT3.EQ.DCALL  RITESQ 
RETURN 

6  CONTINUE 

If <I0PT3.EQ.1>CALL  RITESQ 
RETURN 

20  NPISQ  A ( I ) =2 

WORD ( 2) *0 

IF(IOPTl.EQ.l)  WRITE  (6, 23  6)  I 

206  F0P4A  T ( 464  A  REPL  WAS  FOUND  IN  THE  SHOP  QUE  ASHORE  SPACE, 13, 25H  CH 
1ANGE  ITS  PRIORITY  TO  2) 

IF  ( I  •  EQ. 1 > RETURN 
K  =  1-1 

DO  22  J  =  1 , K 

If (NPISQA ( J) .EQ.2.AND.TISQA(J) .LE.TISQA (I) ) GOT  02 2 
IISQA  =  ISQA ( I ) 

TTISQA=TISQA< I) 

INESQ  A  =  NESQA ( I ) 

23  IS0A(I)=ISQA(I-1) 

TISQA  ( I ) =  TISQ A ( I- 1 ) 

NPISQA (I) = NPISQ A ( I - 1 > 

NESQA (I) =NESQA ( 1-1) 

1=1-1 

IF  ( I .  NE . J ) GOT 023 
IS QA ( J)  =  1 1 SQA 
TISQA (J) =TT ISQA 
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REQUST 


173 


175 


NESQA ( J) * INESQA 
NP ISO  A  < J ) »2 

IF (IOPT3*£Q*l)CALl  RITSQA 
RETURN 

22  CONTINUE 

IF  (IOPT3.EO.DCALL  RITSQA 
RETURN 

207  WRITE  (6*236) 

2  08  FORMA  T  ( 34 H  NUMBER  OF  REQUESTS  EXCEEOEO  LIMIT) 
STOP 
ENO 
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6.14  SUBROUTINE  ARRVL(TIME,WORD,FTIME) 


Called  By:  Subroutine  TNE 

Parameters  Used: 

TIME 
W0RD(1) 

WORD(2) 

WORD(3) 

WORD(5) 

Abstract: 

An  arrival  has  been  simulated  at  the  present  clock  time,  TIME.  Parameter  WORD(6)  indicates  which 
one  of  the  following  arrivals  is  simulated: 

WORD(6)=l  Arrival  of  failed  item  at  seabase 

:  WORD(6)=2  Arrival  of  failed  item  at  seabase  queue  ashore 

WORE)(6)=3  Arrival  of  nondedicated  CT  at  seabase 

WORD(6)=4  Arrival  of  dedicated  CT  at  a  unit  ashore 

Arrival  of  Failed  Item  at  Seabase 

Item  type  WORD(l)  arrives  at  the  seabase  at  time,  TIME,  with  a  priority  of  WORD(2)  and  requires 
repair  at  echelon  level  WORD(5). 

If  a  maintenance  space  is  available  (ISS(i)=0,  for  any  i=l  through  NSS),  the  failed  item  will  be 
repaired  in  space  i.  Repair  is  simulated  by  storing  a  complete  service  event  on  the  event  list  (see  Section 
7.3.1).  If  maintenance  space  is  not  available  (ISS(i)#),  for  all  i=l  through  NSS),  the  failed  item  is  added  to 
the  seabase  queue  afloat  (see  Section  8.0).  After  the  destination  of  the  item  is  determined,  control  of  the 
program  is  returned  to  Subroutine  TNE. 

Arrival  of  Failed  Item  at  Seabase  Queue  Ashore 

Item  type  WORD(l)  arrives  at  the  seabase  queue  ashore  at  time,  TIME,  with  a  priority  of  WORD(2) 
and  requires  repair  at  echelon  level  WORD(5). 

The  failed  item  will  be  transported  to  the  seabase  for  repair  if  the  present  length  of  the  seabase 
queue  afloat  is  less  than  the  specified  limit  (NISQ  <LIMIT).  An  arrival  is  simulated  by  storing  an  arrival  event 
on  the  event  list  (see  Section  7.2.1).  If  the  present  length  of  the  queue  afloat  is  greater  than  or  equal  to  the 
specified  limit  (NISQ > LIMIT),  the  failed  item  is  added  to  the  seabase  queue  ashore  (see  Section  8.0).  After 
the  destination  of  the  item  is  determined,  control  of  the  program  is  returned  to  Subroutine  TNE. 

Arrival  of  a  Nondedicated  CT  at  Seabase 

A  nondedicated  CT  identified  by  parameter  WORD(3)  arrives  at  the  seabase  at  time,  TIME.  The 
number  of  items  being  repaired  by  CT’s  is  decremented  (NICTS=NICTS-1). 


Time  (clock  time)  subroutine  is  entered 

Type  of  item 

Priority  of  item 

CT  identification  number 

Echelon  level  of  repair  required 
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Variable  ISS(W0RD(3))  is  equated  to  zero  to  indicate 

•  that  space  WORD(3)  is  now  available  to  be  used  for  a  repair  (if  the  returned  CT  is 
a  regular  CT;  i.e.,  if  WORD(3)  <NSS),  or 

•  that  phantom  CT  identified  by  parameter  WORD(3)  is  now  available  for  another 
repair  ashore  (if  the  returned  CT  is  a  phantom  CT:  i.e.,  if  WORD(3)  >NSS). 

If  a)  items  are  in  the  CT  queue  ashore  and  b)  the  number  of  items  being  repaired  by  CT’s  is  less  than  the 
specified  number  of  items  allowed  to  be  repaired  simultaneously  by  CT’s,  a  CT  is  required  ashore. 

If  a  CT  is  not  required  ashore  (NICTQ=0  or  NICTS=NCTS),  the  returned  CT  will  remain  at  the  sea- 
base.  If  there  are  no  items  in  the  seabase  queue  afloat  (NISQ=0)  or  if  the  returned  CT  is  a  phantom  CT 
(WORD(3)  >NSS),  the  returned  CT  remains  available  at  the  seabase.  Control  of  the  program  is  returned  to 
Subroutine  TNE.  If  there  are  items  in  the  seabase  queue  afloat  and  the  returned  CT  is  a  regular  CT,  the  item 
in  Location  1  of  the  queue  is  removed  for  repair  in  space  WORD(3).  Repair  is  scheduled  by  storing  a 
complete  service  event  on  the  event  list  (see  Section  7.3.1).  The  item  in  Location  1  of  the  seabase  queue 
ashore  can  then  be  removed  and  transported  to  the  seabase  a)  if  the  present  length  of  the  queue  afloat  is  now 
less  than  the  specified  limit  (NISQ  < LIMIT)  and  b)  if  there  are  items  in  the  seabase  queue  ashore  (NISQA^O). 
An  arrival  is  scheduled  by  storing  an  arrival  event  on  the  event  list  (see  Section  7.2.1).  Control  of  the 
program  is  returned  to  Subroutine  TNE. 

If  a  CT  is  required  ashore  (NICTQ^O  and  NICTSfNCTS),  the  kind  of  CT  (regular  or  phantom)  needed 
is  determined;  if  the  CT  which  just  returned  to  the  seabase  is  of  this  kind,  it  will  be  sent  ashore.  Four 
situations  can  exist  as  listed  here: 


Kind  of  CT 

Situation 

Returned  to  Seabase 

Required  Ashore 

1 

Regular 

Regular 

2 

Phantom 

Phantom 

3 

Phantom 

Regular 

4 

Regular 

Phantom 

In  either  Situation  1  (i.e.,  WORD(3)  <NSS  and  NDCS(NICTS+1)^NDCS(NICTS))  or  Situation  2  (i.e., 
either  WORD(3)>NSS  and  NDCS(NICTS+1  )=NDCS(NICTS)  or  WORD(3)>NSS  and  NICTS=0),  the  returned 
CT  is  the  correct  kind  to  send  ashore.  The  item  in  Location  1  of  the  CT  queue  is  removed  and  the  returned 
CT  is  sent  ashore  to  repair  it.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see 
Section  7.3.2).  Control  of  the  program  is  returned  to  Subroutine  TNE. 

In  Situation  3  (i.e.,  WORD(3)>NSS  and  NDCS(NICTS+1)^NDCS(NICTS))  the  returned  CT  is  not  the 
correct  kind  to  send  ashore,  so  it  will  remain  at  the  seabase  for  a  repair  which  requires  a  phantom  CT.  It  is 
then  determined  whether  or  not  a  regular  CT  is  available  from  the  seabase  for  the  repair.  If  ISS(i)=0,  for  any 
i=  1  through  NSS,  the  maintenance  personnel  are  transported  ashore  as  a  CT  with  an  identification  number  i 
to  repair  the  item  removed  from  Location  1  of  the  CT  queue.  Repair  is  scheduled  by  storing  a  complete 
service  event  on  the  event  list  (see  Section  7.3.2).  Control  of  the  program  is  returned  to  Subroutine  TNE. 

In  Situation  4  (i.e.,  either  WORD(3)  <NSS  and  NICTS=0  or  WORD(3)  <  NSS  and 
NDCS(NICTS+1)=NDCS(NICTS))  the  returned  CT  is  not  the  correct  kind  to  send  ashore,  so  it  is  determined 
a)  if  a  phantom  CT  is  available  for  the  repair  ashore  and  b)  if  the  returned  CT  is  required  for  the  repair  of  an 
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item  from  the  seabase  queue  afloat.  If  phantom  CT  number  i  is  available  for  the  repair  ashore  (ISS(i)=0,  for 
any  i=  (NSS+1)  through  (NSS+NPS)),  it  is  transported  ashore  to  repair  the  item  removed  from  Location  1  of 
the  CT  queue.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see  Section  7.3.2). 

(If  the  returned  CT  is  to  repair  an  item  from  the  seabase  queue  afloat,  the  identification  number  of  the 
returned  CT,  WORD(3),  is  required.  To  retain  this  identification  number  while  scheduling  the  complete  service 
event  for  the  phantom  CT,  WORD(3)  is  stored  as  variable  IWORD3  (i.e.,  IWORD3=WORD(3)).  After  the 
complete  service  event  is  scheduled,  the  identification  number  of  the  returned  CT  can  be  taken  out  of  storage 
(i.e.,  WORD(3)=IWORD3)).  If  there  are  no  items  in  the  seabase  queue  afloat  (NISQ-O),  the  returned  CT  will 
remain  at  the  seabase,  and  control  of  the  program  is  returned  to  Subroutine  TNE.  If  there  are  items  in  the 
seabase  queue  afloat,  then  since  the  returned  CT  increases  the  seabase  repair  capability,  the  item  in  Location  1 
of  the  queue  is  removed  for  repair.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list 
(see  Section  7.3.1).  Control  of  the  program  is  returned  to  Subroutine  TNE. 

Arrival  of  Dedicated  CT  at  a  Unit  Ashore 

The  dedicated  CT  identified  by  parameter  WORD(3)  arrives  at  a  unit  ashore  at  time,  TIME.  To 
indicate  that  this  CT  is  available  ashore  for  repair,  variable  ICTS(WORD(3))  is  equated  to  zero.  If  there  are  no 
items  in  the  CT  queue  (NICTQ=0),  the  CT  is  not  required  for  repair  and  control  of  the  program  is  returned 
to  Subroutine  TNE.  If  there  are  items  in  the  queue,  the  CT  will  repair  the  item  removed  from  Location  1  of 
the  queue.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see  Section  7.3.4). 

Control  of  the  program  is  then  returned  to  Subroutine  TNE. 
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SUBROUTINE  ARR VL ( T I  ME , WORD . FT  I ME ) 

INTEGER  WORO ( 6 ) 

C0MM0N/N1/GTIME,IECHAV(5I ,NOTYPE,NUNIT,IOCT,NMI,KMI,IEAU(3,10> 
l  *  PCT  R ( 3 )  ,PF(5) , CLASS 
COMMON/N2/NCTS*N3S,NUS 

COMMON/N3/INV  <150 ) , NE I (3 0 , 10 >  , NFI ( 150 ) . NL 1ST  ( 10 ) ,NR,NTRQST (200  ) , 

1  NURQ  ST ( 2  J  0  ) *TIRQST (200) , TYPE  NO ( 30 , 10 ) ,TAMNO(150) 
COMMON/N5/ICTQ(23D) , I SQ < 20 3 ) , ISQA  < 20 0  ) , ISS < 1 0 > , I UQ < 20 0  ,1 0 ) , NICTQ, 

1  NICTS,NISQ,NISOA,NIUQ<10> ,NIUS(10) ,NPISQ(20G ) ,  NPISQA  (200), 

1  NUICTQ(2GJ> , TIC  TO (2  C  0  » , TISQ (20  0  ) ,TISQA < 2 0 0 > , TI UQ < 20 0 ,10) 

1  , NESQI2D o) ,NESOA (200 ) , NE UQ ( 2 0 0 , 1 0 ) , NEC TQ ( 2 0 0 ) ,ICTS(10) 
C0MM0N/N6/LIMDIM, LIMIT ,Tl ,T2, IOPTl,IOPT2, I OPT 3 
C0MM0N/N7/DTH(153 ,13) , HQE (13) , HWIQ < 1 3 ) , LE NTHC < 13 ) ,LENTHQ<13) , 

1  M AXQ  L ( 1 3 ) ,NENTER (13) ,QL ( 13) ,TQBE (13) ,WT<13) ,NOISC (150 ) , NOREQ ( 150 ) 
1  .HCTHUJ)  ,TCTBF(lu  ) ,HSSW  ( 1 0 )  , TSS BF  ( 1 C  )  ,  TRTS  ,N IE  R  ( 13)  ,  IMAXQL  <131 
1  , INENTR(13) ,TIMEINT,HUSW (10) ,TUSBF(10) , NOFAIL (150,10 ) 
C0MM0N/N9/N0CS (5) ,NPS 
OATA  IC0MPS,IARRVL,IFAIL/2,4,6/ 

GOTO ( 1,2, 3,4) WORD (6) 

COMMENT  FAILEO  ENO  ITEM  ARRIVES  AT  SE ABASED  MAINTENANCE  SHOP 
1  CONTINUE 

00  13  NSE  RVR* 1 , NSS 
IF  (ISS(NSERVR) .NE.CIG0T013 

C  SHOP  SPACE  NO.  NSERVR  IS  AVAILABLE  TO  BE  USED  FOR  REPAIR 
NIERC  1> sNIER(l) *1 
ISS(NSERVR)=WORO(1> 

WORD( 3)=NSERVR 
WORO (6)=i 

CALL  GENTTR(WORO, TTR) 

CALL  SNE( ICOMPS,T I ME* TTR, WORD , FT  I  ME) 

TSSBF  ( WORD ( 3 ) ) =TIME 
IF (IOPTl.EQ.O)RETURN 
WRITE  (6, 200) WORD (1) .TIME 

200  FORMA  T ( / , 21H  FAILED  ENO  ITEM  TYPE,I2,41H  ARRIVES  AT  SE ABASED  MAINT 
1ENANCE  SHOP  AT ,F6.1,5H  HRS.) 

RT IME  =T I ME  +  TTR 

WRITE  (6,204) NSERVR, RT IME 

204  FORMA  T ( 15 H  SHOP  SPACE  NO.,I2,61H  IS  AVAIL  TO  BE  USED  FOR  REPAIR.  R 

1EPAIR  WILL  BE  COMPLETED  AT,F6.1,5H  HRS.) 

RETURN 

13  CONTINUE 

C  ADO  END  ITEM  TO  SEABASED  QUEUE  AFLOAT  ACCORDING  TO  ITS  PRIORITY 
IF(NISQ.EQ.O)GOTOlC 
00  5  I=1,NISQ 

IF (NPISCM  I) .LT.WORD (2 ) ) GOT 06 

IF (NPISQ(I) .EQ.W0R0<2) .AND. TISQ (I) .GT .T IME) GOT 06 
5  CONTINUE 

10  NISQ=NISQU 

IF (NISQ.GT.LIMOIM) GOT  01 8 
ISO(NISQ) =WORD (1) 

TI SQ (  NI SQ)  =  T I  ME 
NPISQ (NI SQ) =WORD ( 2 ) 

NESQ(NISQ)=W0R0(5) 

IF (NISQ.EQ.l) HQE ( 1)=TIME-TQBE ( 1) ♦HQE ( 1) 
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6  3 


65 


70 


75 


80 


85 


90 


NENTER(l)*NENTER<t)M 

IF (MAXQL (1) .LT.NISO) MAXQL ( i ) * NISQ 

IF(IOPTi,EQ,fl) RETURN 

WRITE  (6,200>WORO(1) ,TIME 

WRITE (6,205) 

2  05  FORMA  T  ( 45H  NO  SHOP  SPACE  IS  AVAIL  TO  BE  USED  FOR  REPAIR) 

CALL  RITESG 
RETURN 

6  NISQ=NISQU 

IF (NISQ.GT.LIMDIM)G0T018 
J*  NIS  Q 

7  ISO( J ) *I3Q ( J-l ) 

TISQ ( J) *TISQ (J-l) 

NPISQ (J) =NPISQ(J-1) 

NESQ(,J)=NESQ(J-1) 

J  =  J-1 

IF { J. NE. I ) GOT  07 
IS  Q  ( I ) = WORO ( 1 ) 

T ISQ ( I ) *T IME 
NPISQ(I)s*W0R0(2) 

NE  SO ( I ) *  WORO ( 5 ) 

IF(NISQ.EQ.l) HQE ( 1 ) *T IME-TQBE (1 ) ♦HQE ( 1 ) 

NENTERfl) *NENXER( 1) *1 

IF (MAXQL (i) .LT.NISQ) MAXQL (1)*NISQ 

IF (IOPTi.EQ.O) RETURN 

WRITE (6,200) WORD(l) ,TIME 

WRITE  (6,205) 

IMIOPT2,EQ.3> WRITE (6 *2091 ISQ(I) , I, TISQ (I) , NPISQ (I), NESQ(I) 

209  FORMA  T  ( 5X , 1 4H  END  ITEM  TYPE,I2,26H  ADO  TO  SB  QUEUE  AFL  SPACE, 12, 
1  3 H  AT,F6.1,20H  HRS  WITH  A  PRIOR  0F,I2,14H.  MAINT  AT  ECH,I2, 

1  1 2H  IS  REQUIRED) 

IF(IOPT2.EQ.l)CALL  RITESQ 
RETURN 

18  WRITE (6,207) 

207  FORMAT ( 51 H  NO.  OF  END  ITEMS  IN  SB  QUEUE  AFLOAT  EXCEEOEO  LIMIT) 

STOP 


95 


100 


105 


110 


COMMENT  FAILED  END  ITEM  ARRIVES  AT  SEABASED  QUEUE  ASHORE 
2  CONTINUE 

IF(NISQ.GE. LIMIT) G0T021 

C  TRANSPORT  FAILED  END  ITEM  TO  SEABASED  MAINTENANCE  SHOP 
WORD ( 6 ) = 1 

CALL  SNE(IARRVL,TIME+T1,W0RD,FTIME> 

IF (10 PT1.EQ.0) RETURN 
WRITE (6,236) WORD (1) , T I  ME 
WRITE (6,202) WORD(l) 

RETURN 

C  ADD  FAILEO  ENO  ITEM  TO  SEABASED  QUEUE  ASHORE  ACCOROING  TO  ITS  PRIORITY 
21  IF(NISQA.EQ.Q)G0T014 

DO  15  I*1,NISQA 

IF(NPISQA (I).LT.WORD(2))GOT016 

IF (NPISQA (I) .EQ.WORD(2) .AND.TISQA  <I) . GT . T IME ) GOT 016 
15  CONTINUE 

14  NISQA=NISQA+1 

IF(NISQA.GT.LIMDIM)G0T019 
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115 


12'J 


125 


130 


135 


140 


145 


150 


ISQA(NISQA)«WORD(l> 

TISQA (NISQA)«TIME 
NPISQA(NISQA) -WORD (2) 

NESQA (NISQA  >  *  WORO (5) 

IF(NISQA.EQ.1)HQE ( 2 ) * T IME -TQBE ( 2 >  +  HQE (2) 

NENTER (2) *NENTER(  21  *1 

IF  (MAXQL (2) .LT. NISQA I MAXQL (2) «NISQA 

IF  (IOPTl.EQ. 0) RETURN 

WRITE (6,206) WORD (1) .TIME 

206  FORMA T ( / , 21H  FAILED  END  ITEM  TYPE,I2,36H  ARRIVES  AT  SE ABASED  QUEUE 

1  ASHORE  AT,F6.1,5H  HRS.) 

CALL  RITSQA 
RETURN 

16  NISQA  *NISQA*1 

IF (NISQA. GT  .LIMDIM)G0T019 
J* NISQA 

17  ISQA( J)-ISQA(J-l) 

TISQA  (J)»TISQA (J-l) 

NPISQA(J)»NPISQA( J-l) 

NESQA (J)*NESQA(J-1) 

J*  J-l 

IF  (J.  NE .  I )  GOT 017 
ISOA ( I) *WORQ ( 1 ) 

TISQA (I) »TIME 
NPISQA(I) *W0R0(2) 

NESQA (I) *WORD (5) 

IF(NISOA.EQ.l) HQE (2)«TIME-TQBE(2) ♦HQE (2) 

NENTER (2) »NENTER( 2) *1 

IF  (MAXQL (2) .LT. NISQA) MAXQL (2) * NISQA 

IF(IOPTl.EQ.0)RETUPN 

WRITE  (6, 236) WORD (1) .TIME 

IF (IOPT2.EQ.0)WRITE(6,214)ISQA(I) , I, TISQA (I) , NPI SQA( I > , NESQA ( I ) 

214  FORMA T ( 5 X , 14H  END  ITEM  TYPE.I2.34H  AODEO  TO  SB  QUEUE  ASHORE  IN  SPA 
1CE.I2.3H  AT.F6.1.20H  HRS  WITH  A  PRIOR  OF.I2.13H  MAINT  AT  ECH.I2, 

1  12H  IS  REQUIRED) 

IF  (IOPT2.EQ.DCALL  RITSQA 
RETURN 

19  WRITE  (6,200) 

208  FORMA T ( 5 1H  NO.  OF  END  ITEMS  IN  SB  QUEUE  ASHORE  EXCEEOEO  LIMIT) 

STOP 


COMMENT  NON-DEDICATED  CT  ARRIVES  AT  SEABASEO  MAINTENANCE  SHOP 
3  CONTINUE 

IF  (IOPTl.EO.l)  WRITE  (6, 20  DWORD  (3)  .TIME 

155  201  FORMA T ( / , 7H  CT  N0..I2.33H  ARRIVES  AT  SEABASE  MAINT  SHOP  AT.F6.1.5H 

1  HRS.) 

I SS ( W  ORO ( 3 ) ) *  0 
NICTS=NICTS-1 

IF (NICTQ.EQ.O.OR.NICTS.EQ.NCTS)GOT09 

160  C  A  CT  IS  NEEDED  ASHORE,  CHECK  TO  SEE  IF  RETURNEO  CT  CAN  BE  SENT  BACK  ASHORE 

IF (NICTS.EQ.O .AND.WORD(3) .LE.NSS) G0T026 
IF(NICTS.EQ.O.AND.WORD(3) .GT.NSS) G0T025 

IF  (NOCS(NICTSU)  .EQ.  NDCS  (NICTS)  .  A  NO.  WORD  (3)  .  LE  .NSS)  GOT  02  6 
IF (NDCS(NICTS*1) . NE . NDCS ( NICT S) .AND. WORD (3) . GT .NSS) GOT 02 7 
165  C  TRANSPORT  RETURNED  CT  BACK  ASHORE 
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173 


175 


183 


185 


19J 


195 


200 


205 


213 


215 


220 


25  NIER(3)*NIER(3)U 
NICTS*NICTSU 
WOPD(l)»ICTQ(l) 

W0R0(2)»NUICTQ(1> 

ISS(WORO(3)  )*NOTYPEU 
WORD ( 6 ) *  2 
WORO(5)*NECTQ(l> 

FTIME*TICTQ(1) 

CALL  GENTTR(WORD,TTR) 

CALL  SNE(ICOMPS,TIME«-TTRm,WORO,FTIME) 

TCTBF  (WORD(3> )*TIME+T1 
TRTS=TRT3+T 1 

HWIQ(3)«TIME+T1-TICTQ(1)*HWIQ(3) 

NICTQ*NICTQ-1 

IF  (NICTQ.EQ.O)TQBE (3) =TIME+T1 
IF(NlCTQ.EQ.0)GOTO20 
DO  11  I=1,NICTQ 
ICTQ(I)=ICTQ(I+1) 

NUICTQ(I)  =NUICTQ(  1*1) 

NECTQ  ( I ) *  NECT  Q ( I* 1 ) 

11  TICTQ  (I)*TICTQ(I+1) 

20  CONTINUE 

IF (IOPTl.EQ.O)RETURN 
RTIME=TIME+TT R»Ti 

WRITE  (6, 203) WORD (3) , WORO ( 1 ) , RT IME 

203  FORMA  T ( 25  H  PERS  FROM  SHOP  SPACE  NO.*I2t33H  IS  AVAIL  TO  REPAIR  ENO 
1ITEM  TYPE  *  12*  59H  FROM  CT  QUEUE.  SEND  ASHORE  AS  CT.  ITEM  HILL  BE  RE 
1PAIRED  AT,F6.1.<*H  HRS) 

IF < WORO (3) .GT.NSS) WRITE (6,213) 

IF (WORD (3) .LE.NSS)WRITE(6,215) 

213  FORMAT(38H  NOTE-00  NOT  OECREASE  CAPACITY  OF  SHOP) 

215  FORMAT (31H  NOTE-DECREASE  CAPACITY  OF  SHOP) 

IF(IOPT3.EQ.l. AND. NIC TQ.NE.O) CALL  RITCTQ 
RETURN 

C  CT  WHICH  JUST  ARRIVED  CAN  NOT  GO  BACK  ASHORE  (BECAUSE  WILL  OECREASE  CAPACITY 

C  OF  SHOP)  BUT  CHECK  TO  SEE  IF  CT  IS  AVAIL  WHO  WILL  NOT  OECREASE  SHOP  CAPACITY 

26  JJ=NS  S  +  l 
KK=NS  S  +  NPS 

DO  28  II=JJ,KK 
IF (ISS(II) .EQ.OIGOT029 

28  CONTINUE 
G0T09 

C  CT  WHICH  JUST  ARRIVED  CAN  NOT  GO  BACK  ASHORE  (BECAUSE  IT  WILL  NOT  OECREASE 

C  CAPACITY  OF  SHOP)  BUT  CHECK  TO  SEE  IF  CT  IS  AVAIL  WHO  WILL  OECR  SHOP  CAPACITY 

27  DO  30  11=1, NSS 

IF (ISS(II) .EQ.O)GOT029 
30  CONTINUE 

G0T09 

C  CT  NO  II  IS  AVAIL  AND  IS  THE  CORRECT  TYPE  TO  SENO  ASHORE 

29  IWORD  3=W0RD ( 3 ) 

WORD) 3)=II 

NIER( 3)=NIER(3)+1 
NICTS=NICTS«-1 
WORD ( 1 ) = ICTQ ( 1 ) 

WORD(2)=NUICTQ(l) 
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225 


23a 


235 


240 


245 


250 


255 


260 


265 


270 


275 


ISS(*0RD(3> ) K  NOT  Y  PE ♦ 1 

WORO ( 6 ) -  2 

WORD  C  5) *NECTQ ll> 

FT IME  =TICTQ ( 1 ) 

CALL  GENTTR (WORD*  TTR) 

CALL  SNE ( ICOMPS  » T I ME f TTR  +  T 1 , WORD , FT  I HE ) 

TCTQF ( WORD ( 3 ) ) =  TIME*T1 
TRTS-TRTS+Tl 

HW  IQ  ( 3) =TIME  +  T1-TICTQ(1)  +HWIQ(3) 

NI  CTQ  =  N ICTQ-1 

IF  (NICTQ.EQ.fl) TQBE (3) =TIME*T1 
IF  (NICTQ.EQ.  0 )G0T031 
DO  32  IS1,NICTQ 
ICTQt  nsICTQ(Ifl) 

NU  ICT,  0(  I )  =NUICTQ(I+1) 

nectq(I)*ne:tq(i  +  d 

32  TICTQ (I) =TICTQ(If 1) 

31  CONTINUE 

IF(IOPTl.EQ.O) WORD ( 3 ) =IW0RD3 
IF (IOPTl.EQ.Q) G0T09 
RTIME=TIME+TTR+T1 

WRITE  (6  9  2 16) WORDt  3) ,WORO«i) , RT IME 

216  FORMAT { 73 H  RETURNED  C.T.  CAN  NOT  GO  BACK  ASHORE,  BUT  MAINT  PERS  PR 
10M  SHOP  SPACE  NO. , 12 , 24H  SENT  ASHORE  TO  REP  TYPE,I2,15H  FROM  CT  QU 
1EUE • , / , 2 5H  ITEM  WILL  BE  REPAIRED  AT,F6.1,5H  HRS.) 

IF (WORD (3) . GT.NSS) WRITE (6 ,213) 

IF (WORD (3) .LE.NSS) WRITE (6, 215) 

IF (IOPT3. EQ.l . AND.NICTQ.NE.O) CALL  RITCTQ 
WORD ( 3 ) *  I WORD  3 

C  RETURNED  CT  REMAINS  AFLOAT 
9  IF (NISQ.EQ.O .OR. WORD (3) . GT . NS S ) RETURN 

C  ITEM  FROM  SE ABASED  QUEUE  AFLOAT  WILL  BE  REPAIRED  IN  SHOP  SPACE  NO.  WORO  (3) 
NI ER  < 1) =NIER ( 1 ) +1 
WORD ( 1 ) = I SQ ( 1 ) 

IS  S ( W  ORD ( 3 ) ) =  WORD (1) 

WORD (  6)  =  1 
WORD ( 5 )  =  NESQ ( 1 ) 

CALL  GENTTR ( WO  RD , TTR) 

CALL  SNE< ICOMPS, TIME f TTR, WORD, FT I  ME) 

RT IME  =TI ME  +  TTR 

IF (IOPT1. EQ.l) WRITE (6 ,211) WORD (3) ,WORD(l) , RT IME 
211  F0RMATU5H  SHOP  SPACE  N0.,I2,48H  IS  AVAIL  TO  BE  USED  FOR  REPAIR  OF 
1  END  ITEM  TYPE,I2,53H  FROM  SB  QUEUE  AFLOAT.  REPAIR  WILL  BE  COMPLET 
1ED  AT ,F6. 1 , 5 H  HRS.) 

TSSBF ( WORD ( 3 ) )=TIME 

HWIQ( l)sTIME-TISQ(l) ♦HWIQ(l) 

NI S  Q=  NISQ-i 

IF (NI SQ. EQ, g ) T  QBE (1)=TIME 
IF (NISQ.EQ.Q) G0TO22 
DO  8  1= 1 , NI SQ 
ISQ(I)=ISQ(I+1) 

NPISQ(I)=NPISQ(I+1) 

NESQ ( I ) =  NESQ ( I +1) 

8  TISQ( I) =T ISQ  < I +1) 

IF  (IOPT3.EQ.DCALL  RITESQ 
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280 


285 


29C 


295 


22  IF(NISQ.GE.LIMIT. OR .NISQA, EQ.Q) RE TURN 

C  TRANSPORT  ITEM  IN  LOCATION  1  OF  SEABASED  QUEUE  ASHORE  TO  SEABASEO  MAINT  SHOP 
WORD ( 1 ) *  I SQ A ( 1 ) 

WORD(2)»NPISQA(l) 

W0RD(5)*NESQA(1) 

WORD ( 6) » 1 

CALL  SNE(IARRVL,TIME+Tl,WORD,  FTIME) 

IF (IOPTl.EO.il  WRITE (6,202 >WORO(1> 

2C2  FORMA  T ( 31 H  TRANSPORT  FAILEO  ENO  ITEM  TYPE,I2,5GH  FROM  SEABASEO  QUE 

1UE  ASHORE  TO  SEABASEO  MAINT  SHOP) 

HWIQ( 2)«TIME-TISQA(1) +HWIQ(2I 
NISQA  =NISQA-1 

IF(NISQA.EQ.0)TQBE(2)»TIME 
IF(NISQA.EQ.O)RETURN 
00  12  1  =  1 , NISQA 
ISQA( I)*ISQA(IU> 

NPISQA(I)=NPISQA(I+1J 
NESQA <I)*NESQA (1*1) 

12  TISQA (I) sTISQA (1*1) 

IFCIO PT3.EQ.il  CALL  RITSQA 
RETURN 


303 


305 


310 


315 


320 


325 


333 


COMMENT  DEDICATED  CT  ARRIVES  AT  A  NEARBY  UNIT  ASHORE 
4  CONTINUE 

IF(IOPT1.EQ.1)WRITE(6,210IWORO(3) .TIME 
210  FORMAT!/, 7H  CT  NO.,I2,35H  ARRIVES  AT  A  NEARBY  UNIT  ASHORE  AT.F6.1, 
1  5H  HRS.) 

IC  TS ( WORO (3 1  1*0 
IF(NICTQ.EQ.3)RETURN 

C  TRANSPORT  CT  TO  ENO  ITEM  IN  LOCATION  1  OF  CT  QUEUE 
NIERC3)=NIER(3)U 
WORD! 1)=ICTQ(1) 

WORD ( 2 1 =NUI CT  Q ( 1) 

ICTS(W0R0(3))=W0R0(1) 

WORD (6)34 
FTIME=TICTQ(1) 

WORD(5)=NECTQ(l> 

CALL  GENTTR(WORD»  TTR) 

CALL  SNE ( ICON PS, T IME+T2* TTR .WORD, FTIME) 

TCTBF (WORD (3) )=TIME+T2 
TRTS=TRTS*T2 

HWIQ(  3>=TIME*T2-TICTQ(1)«-HWIQ(3) 

NICTQ=NICTQ-1 

IF (NICTQ.EQ.0)TQ8E(3) =TIME+T2 
IF (NICTQ.EQ.O) GOT  02  3 
00  24  1=1 «NICTQ 
ICTQ(I)=ICTQ(I+1) 

NECTQ(I)=NECTQ(I+1I 
NUICTQ(I) =NUICTQI I+l) 

24  TICTQ(I)=TICTQ(I+1) 

23  CONTINUE 

IF (IOPTl.EQ.O)RETURN 
RTIME=TIME+TTR+T2 

WRITE (6, 212) WORD (3) ,WORD(l) ,RTIME 

212  FORMA  T (6H  CT  NO,I2,33H  IS  AVAIL  TO  REPAIR  END  ITEM  TYPE,I2,54H  FRO 
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6.15  SUBROUTINE  COMPS(TIME,WORD,FTIME) 


Called  By:  Subroutine  TNE 

Parameters  Used: 

TIME 

Time  (clock  time)  subroutine  is  entered 

WORD(l) 

Type  of  item 

WORD(2) 

Number  of  unit  where  item  is  located 

WORD(3) 

Space  number  of  CT  identification  number 

WORD(6) 

Location  of  repair 

FTIME 

Time  of  failure  of  item 

Abstract: 

The  completion  of  the  repair  of  an  item  is  simulated  at  the  present  clock  time,  TIME.  Parameter 
WORD(6)  indicates  the  location  of  repair  as  follows: 

WORD(6)=l  Complete  service  at  the  seabase 

WORD(6)=2  Complete  service  ashore  by  nondedicated  CT 

WORD(6)=3  Complete  service  ashore  at  unit 

WORD(6)=4  Complete  service  ashore  by  dedicated  CT 

Complete  Service  at  the  Seabase 

The  repair  of  item  WORD(l)  in  space  WORD(3)  at  the  seabase  is  complete  as  of  the  time,  TIME.  To 
indicate  that  space  WORD(3)  is  now  free,  the  variable  ISS(WORD(3))  is  set  equal  to  zero.  The  total  amount 
of  time  spent  in  the  repair  of  items  in  space  WORD(3)  at  the  seabase  (HSSW(WORD(3)))  is  updated  to  include 
the  time  spent  repairing  item  WORD(l): 

HSSW(WORD(3))=TIME-TSSBF(WORD(3))+HSSW(WORD(3)). 

TSSBF(WORD(3))  represents  the  time  that  item  WORD(l)  entered  space  WORD(3)  for  repair.  Disposition  of 
the  repaired  item  and  of  the  maintenance  personnel  from  space  WORD(3)  must  now  be  determined. 

If  there  are  no  unfilled  unit  requests  for  an  item  of  type  WORD(l)  (NTRQST(i)^WORD(l),  for  all 
i=  1  through  NR),  the  repaired  item  is  sent  to  the  float,  and  the  total  number  of  WORD(l)-type  items  in  the 
float  is  updated  (INV(WORD(l))=INV(WORD(l))+l).  If  there  is  an  unfilled  unit  request  for  type  WORD(l) 
(for  the  first  i  such  that  NTRQST(i)=WORD(l)),  the  repaired  item  is  sent  to  unit  NURQST(i).  Its  operation 
and  subsequent  failure  is  generated  by  storing  a  fail  event  on  the  event  list  (see  Section  7.1).  The  total 
amount  of  time  items  of  type  WORD(l)  from  unit  WORD(2)  (WORD(2)=NURQST(i))  are  out  of  operation 
(DTH(WORD(l),WORD(2)))  is  updated  by  the  amount  of  time  item  WORD(l)  was  out  of  operation,  figured 
from  the  time  the  unit  registered  the  request  for  a  WORD(l)-type  item  until  the  time  item  WORD(l) 
resumed  operation: 

DTH(WORD(l),WORD(2))=(TIME+Tl)  -  TIRQST(i)  +  DTH(WORD(l),WORD(2)). 

TIRQST(i)  represents  the  time  that  item  WORD(l)  failed.  The  number  of  requests  currently  contained  on 
the  unit  replacement  request  arrays  is  decremented  (NR=NR-1).  All  of  those  items  remaining  in  the  request 
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arrays  in  locations  (i+1)  through  (NR+1)  (i.e.,  the  arrays  TIRQST,  NTRQST,  NURQST),  are  advanced  one 
location  so  that  Location  i  is  once  again  filled. 

Disposition  of  maintenance  space  WORD(3)  personnel  is  decided  in  the  following  way.  If  a)  items 
are  present  in  the  CT  queue  (NICTQ^O),  and  b)  the  present  number  of  items  undergoing  repair  by  CT’s  is 
under  the  allowable  limit  (NICTS  <NCTS).  and  c)  repair  by  a  nondedicated  CT  is  specified  as  input  (IDCT=0), 
and  d)  a  regular  CT  is  required  ashore  (NICTS^O  and  NDCS(NICTS)^NDCS(NICTS+1)),  then,  if  all  these 
conditions  are  met,  the  maintenance  personnel  from  space  WORD(3)  are  transported  ashore  as  a  CT,  with  an 
identification  number  equal  to  WORD(3),  to  repair  the  item  removed  from  Location  1  of  the  CT  queue  (see 
Section  9.0).  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see  Section  7.3.2). 
Control  of  the  program  is  then  returned  to  Subroutine  TNE.  If  any  of  these  four  conditions  described  has 
not  been  satisfied  (NICTQO,  or  NICTS=NCTS,  or  IDCTfO,  or  NICTS=0,  or  NDCS(NICTS+1)=NDCS(NICTS)), 
and  if  there  are  no  items  in  the  seabase  queue  afloat  (NISQ=0),  the  maintenance  personnel  from  space 
WORD(3)  will  remain  available  for  maintenance,  and  control  of  the  program  is  returned  to  Subroutine  TNE. 

If  items  are  waiting  in  the  seabase  queue  afloat  (NISQ^O),  the  item  in  Location  1  is  removed  from  the  queue 
(see  Section  9.0)  to  space  WORD(3)  for  repair.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the 
event  list  (see  Section  7.3.1).  If  the  queue  afloat  is  not  full  (NISQ  <LIMIT)  and  the  queue  ashore  still  has 
items  in  it  (NISQA^O),  the  item  in  Location  1  of  the  queue  ashore  is  removed  (see  Section  9.0)  and  trans¬ 
ported  to  the  seabase.  Its  arrival  is  scheduled  by  storing  an  arrival  event  on  the  event  list  (see  Section  7.2.1). 
Control  of  the  program  is  returned  to  Subroutine  TNE. 

Complete  Service  Ashore  by  Nondedicated  CT 

The  repair  of  item  WORD(l)  ashore  at  unit  WORD(2)  by  the  nondedicated  CT  number  WORD(3)  is 
complete  as  of  time,  TIME.  The  item  failed  at  time,  FTIME.  When  an  item  is  repaired  by  CT,  it  must  be 
returned  to  the  unit  following  its  repair,  since  no  replacement  item  is  furnished.  The  Item's  operation  and 
subsequent  failure  is  generated  by  storing  a  fail  event  on  the  event  list  (see  Section  7.1).  The  total  amount  of 
time  items  of  type  WORD(l)  from  unit  WORD(2)  are  out  of  operation  (DTH(WORD(l),WORD(2)))  is  updated 
by  the  amount  of  time  item  WORD(l)  was  out  of  operation,  figured  from  the  time  the  item  failed  until  the 
time  the  item  resumed  operation: 

DTH(WORD(  1 ) ,WORD(2))  =  TIME  -  FTIME  +DTH(WORD(l),WORD(2)). 

The  total  amount  of  time  spent  in  the  repair  of  items  by  CT  number  WORD(3)  (HCTW(WORD(3)))  is  updated 
to  include  the  time  spent  repairing  item  WORD(l): 

HCTW(WORD(3))  =  TIME  -  TCTBF(WORD(3))  +  HCTW(WORD(3)). 

TCTBF(WORD(3))  represents  the  time  that  CT  number  WORD(3)  initiated  repair  on  item  WORD(l). 

Dispositon  of  CT  number  WORD(3)  is  decided  in  the  following  way. 

If  there  are  no  items  in  the  CT  queue  (NICTQ=0),  a  nondedicated  CT  is  transported  back  to  the  sea¬ 
base.  Its  arrival  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see  Section  7.3.2).  Control 
of  the  program  is  then  returned  to  Subroutine  TNE.  If  items  are  present  in  the  CT  queue  (NICTQ^O),  the 
item  in  Location  1  is  removed  (see  Section  9.0)  for  repair.  Repair  is  scheduled  by  storing  a  complete  service 
event  on  the  event  list  (see  Section  7.3.2).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 
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Complete  Service  Ashore  at  Unit 

The  repair  of  item  WORD(l)  ashore  at  unit  WORD(2)  is  complete  as  of  time,  TIME.  The  item  failed 
at  time,  FTIME.  When  an  item  is  repaired  at  a  unit,  it  must  be  restored  to  operation  at  the  unit  following  its 
repair,  since  no  replacement  item  is  furnished.  The  item’s  operation  and  subsequent  failure  are  generated  by 
storing  a  fail  event  on  the  event  list  (see  Section  7.1).  The  total  amount  of  time  items  of  type  WORD(l) 
from  unit  WORD(2)  are  out  of  operation  (DTH(WORD(l),WORD(2)))  is  updated  by  the  amount  of  time  item 
WORD(l)  was  out  of  operation,  figured  from  the  time  the  item  failed  until  the  time  the  item  resumed  operation 
DTH(WORD(l ) ,WORD(2))  =  TIME  -  FTIME  +  DTH(WORD(l),WORD(2)). 

The  total  amount  of  time  spent  in  the  repair  of  items  at  unit  WORD(2)  (HUSW(WORD(2)))  is  updated  to 
include  the  time  spent  repairing  item  WORD(l): 

HUSW(WORD(2))  =  flME  -  TUSBF(WORD(2))  +  HUSW(WORD(2)). 

TUSBF(WORD(2))  represents  the  time  that  unit  WORD(2)  initiated  repair  on  item  WORD(l).  Disposition  of 
the  available  maintenance  resources  at  unit  WORD(2)  is  decided  in  the  following  way. 

If  there  are  no  items  in  the  unit  queue  (NIUQ(WORD(2))=0),  control  of  the  program  is  returned  to 
Subroutine  TNE.  If  items  are  present  in  the  queue  (NIUQ(WORD(2))^0),  the  item  in  Location  1  is  removed 
(see  Section  9.0)  for  repair.  Repair  is  scheduled  by  storing  a  complete  service  event  on  the  event  list  (see 
Section  7.3.3).  Control  of  the  program  is  returned  to  Subroutine  TNE, 

Complete  Service  Ashore  by  a  Dedicated  CT 

All  aspects  of  service  ashore  by  a  dedicated  CT  are  identical  to  those  of  service  ashore  by  a  non- 
dedicated  CT  except  for  disposition  of  the  CT.  Disposition  of  a  dedicated  CT  number  WORD(3)  is  decided  in 
the  following  way. 

If  there  are  no  items  in  the  CT  queue  (NICTQO),  the  dedicated  CT  is  transported  to  a  nearby  unit. 

Its  arrival  is  scheduled  by  storing  an  arrival  event  on  the  event  list  (see  Section  7.2.4).  Control  of  the  program 
is  returned  to  Subroutine  TNE.  If  items  are  present  in  the  CT  queue  (NICTQ^O),  the  item  in  Location  1  is 
removed  (see  Section  9.0)  for  repair  by  CT  number  WORD(3).  Repair  is  scheduled  by  storing  a  complete 
service  event  on  the  event  list  (see  Section  7.3.4).  Control  of  the  program  is  then  returned  to  Subroutine  TNE. 
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SUBROUTINE  COMPS ( T IME .WORD, FT IME) 

INTEGER  WORD C 6 ) 

COMMON/Nl/GTIME,IECHAV(5) , NOT YPE , NUN  IT , IDCT , NMI, KMI , I E AU  ( 3 , 10 > 

1  i PCT  R (3) ,PF(5>, CLASS 
COMMON/N2/NCTS*NSS»NUS 

COMMON/N3/INVC150 >  ,  NE I  ( 30  , 10  >  , NFI  { 150  >  ,  NL  1ST  ( 1 0) ,NR,NTRQST (200) , 

1  NUROST (200) , T IRQST (200) , TYPENO (3 C .10 ) , TAMNO  (150 ) 
COMMON/N5/ICTQ(233) ,ISQ(200) » ISQA (20 0 ) , ISS (1 0 ) .1 UQ (20 0 , 10 ) , NIC TQ, 

1  NICTS,NISQ,NISQA,NIUQ(10> ,NIUS(10) ,NPISQ(200 ), NPISQA (200) , 

1  NUICTQ(200) ,TICTQ(200) , TISQ (200  ) ,TI SQA (23 u ) , TI UQ (200  ,10 ) 

1  , NESQ(2JQ> ,NESQA(200) , NEUQ ( 2 0 0 , 1 0 > ,NECTQ(20C> ,ICTS(10) 
C0MM0N/N6/LIM0IM,LIMIT,Ti,T2, IOPTl , IOPT2 , IOPT3 
COMHON/N7/DTH(153  *13) ,HQE(13) , HWI Q ( 13 ) , LENTHC ( 13 ) , LENT  HQ (13) , 

1  MAXQD13) ,NENTER(13) ,QL ( 13) , TQBE (13) ,WT ( 13) ,NOISC  (15 0 ) • NOREQ ( 150  I 
1  ,HCTW(10).TCTBF(1C) ,HSSW(10) ,TSSBF(10) ,T RTS , NIE R ( 13) ,IMAXQL(13) 

1  , INENTR(13) ,TIMEINT,HUSW (10) , TUSBF(IO) , NOFAIL (1 50 , 10 ) 
C0MM0N/N9/N0CS(5) , NPS 
DATA  IC0MPSiIARRVL*IFAIL/2t4»6/ 

GOTO! 1»2*  3»4) WORD (6) 

COMMENT  COMPLETE  SERVICE  AT  THE  SEABASEO  MAINTENANCE  SHOP 
1  ISS(MORD(3))*0 

IF ( IOPTl. EO.l) HRITE(6,200)NORO(1) , TIME , WORD ( 3) 

200  FORMA T (/ » 14H  END  ITEM  TYPE.I2.15H  IS  REPAIRED  AT,F6.1,33H  HRS.  IN 
1  SEABASED  SHOP  SPACE  NO., 12) 

HSSW ( WORD ( 3 ) ) *TIME-TSSBF(HORO (3) ) +HSSW ( WORD ( 3) ) 

IF(NR.EQ.0)GOTO7 
DO  5  1*1 , NR 

IF (NTRQST(I) .EQ.WORD(l) )G0T014 

5  CONTINUE 

C  NO  REQUEST  FOR  END  ITEM-SEND  BACK  TO  INVENTORY 

7  INV(WORO(l))*INV(WORD(l)>n 

IF (IOPTl. EQ.l) WRITE (6, 20 2) INV (HORD(l) ) 

202  FORMA  T (63H  NO  REQUEST  FOR  ENO  ITEM-SEND  BACK  TO  INVENTORY.  NEM  INV 
1  LEVEL*, 12) 

G0T08 

C  END  ITEM  IS  REQUESTED  BY  A  UNIT,  SO  SEND  IT  ASHORE 
14  WORD(2)*NURQST(I) 

ARR=T IME+T 1 

IF  (IOPTl.  EQ.l)  WRITE  (6, 20  DWORD  (2)  ,  ARR 

201  FORMA T (27H  IT  IS  REQUESTED  BY  UNIT  NO,I2,22H  SO  IT  IS  SENT  ASHORE. 
1  25H  IT  WILL  ARRIVE  ASHORE  AT,F6.1,5H  HRS.) 

DTH(WORD(l> , WORD) 2) ) *TIME+T1-T IRQST ( I ) +DT H( WORD( 1 ) , WORD) 2 ) ) 

CALL  GENTTF (WORD, TTF) 

CALL  3NE (IFAIL»TIME+TTF+Tl,WORO,FTIME) 

NR=NR-1 

IF(I.EQ. (NR+1) .AND.NR.NE. 0. AND. IOPT3. EQ.l) CALL  RITERQ 
IF(I.EQ. ( NR+1 ) ) GOT08 
DO  6  J* I , NR 
TIRQST(J)=TIRQST(J+1> 

NTRQST(J) =NTRQST ( J+l) 

6  NURQST(J) =NURQST( J+l) 

IF(I0PT3.EQ.1)CALL  RITERQ 

8  IF (NICTQ.EQ.O.OR.  NICTS. EQ . NCTS . OR . IDCT . NE . 0 . OR .N ICTS . EQ. 0 ) G0T09 
IF (NDCS( NICTS +1) . EQ. NDCS ( NICTS ) >G0T09 
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3  TRANSPORT  SHOP  MAINT  PERSONNEL  ASHORE  AS  A  CT 
NICTS-NICTS+ 1 
TRANS  P=T 1 

IF(I0PT1.EQ. JJGOTOID 
WRITE  (6,2 J3) 

203  FORMAT (53H  SEND  AVAIL  SHOP  MAINTENANCE  PERSONNEL  ASHORE  AS  A  CT) 

WRITE  (6,2 J9) 

209  F  O  RMA  T ( 3 1 H  NOTE-DECREASE  CAPACITY  OF  SHOP) 

GO  TO  1 0 

C  SHOP  MAINT  PERSONNEL  REMAINS  AT  S  EABASEO  MAINTENANCE  SHOP 
9  IF (NISQ.EQ. 3) RETURN 

C  REPAIR  END  ITEM  FROM  LOCATION  1  OF  SE  ABASED  QUEUE  AFLOAT 
NIER(1)=NIER(1>*1 
WORD ( 1 ) = I SQ ( 1 ) 

I S S ( W  9R0 ( 3 ) ) =  WORD  (1) 

WORD( 6) =1 
WORD ( 5 ) =  NESQ ( 1 ) 

CALL  GENT  T  R ( WORD , T  TR) 

CALL  SNE ( ICOMPS,TlMEfTTR, WORO,FTIME) 

RT  IME  =T  I  ME  +  TT  R 

IF  (IOPTl.EQ.l) WRITE (6,210) WORD (3)  , WORD <11  , RT IME 

210  FORMAT ( 31 H  MAINT  PERS  FROM  SHOP  SPACE  N0.,I2,33H  IS  AVAIL  TO  REPAI 
1R  END  ITEM  TYPE,I2,46H  FROM  SE ABA SEO  QUEUE  AFLOAT.  WILL  COMP  SERV 
1AT,F6.1,5H  HRS.) 

TSSBF  (WORD  C  3) )=TIME 

HWIQ< l)sTIME-TISQ(l) ♦HWIQ(l) 

N I SQ=  NI SQ- 1 

IF (NI SQ .EQ. G) TQBE ( 1) =TIME 
IF (NISQ.EQ.0) G0T017 
DO  21  Is 1 , NIS Q 
ISQ ( I )  =  I SQ  1 1  +  1 ) 

NPISQ(I) =NPISQ(I+1) 

NESQ( I)=NESQ<I+1) 

21  T ISQ  < I)=TISQ(I  +  1) 

IF  (IOPT3.EQ.DCALL  RITESQ 
17  IF (NI SQ.GE.LIMIT. OR.NISQA .EQ. 0) RETURN 

C  TRANSPORT  FIRST  END  ITEM  IN  SEABASED  QUEUE  ASHORE  TO  SEA0ASED  MAINTENANCE  SHOP 
WORD ( 1 ) = I SQA ( 1 ) 

WORD ( 2)=NPISQA (1) 

WORD ( 6) = 1 
WORDt  5) =  NES  QA (1) 

CALL  SNE ( IARRVL,T IME+T 1, WORO,FTlME) 

IF (IOPTl.EQ.l) WRITE (6 ,213) WORD (1) 

213  F  0  RMA  T ( 3 1 H  TRANSPORT  FAILED  END  ITEM  TYPE,I2» 

1  56H  FROM  SEABASED  QUEUE  ASHORE  TO  SEABASEO  MAINTENANCE  SHOP) 

HWIQ( 2)=TIME-TISQA (1) +HWIQ<2) 

N I SQ A  =N I S  QA-1 

IF (NI SQA. EQ. 0) TQ9E(2) =T I  ME 
IF (NI SQ A . EQ. 0 ) RETURN 
DO  16  1=1 , NISQA 
ISQA ( I) =ISQA ( 1+1) 

NPISQA(I) =NPISQA ( I +1 ) 

NE  SQA ( I ) =  NESQ A  ( I  ♦  1 )  ' 

16  TISQA (I) =TISQA (1+1) 

IF(I0PT3.EQ.1)CALL  RITSQA 


78 


SUBROUTINE  COMPS 


RETURN 


115 


120 


125 


130 


135 


140 


145 


150 


155 


COMMENT  COMPLETE  SERVICE  BY  NON-OEOICATEO  CT 
2  CONTINUE 

IF(IOPTl.EQ.l) WRITE (6,205)WORO(1) ,  WORO (2) .TIME ,W0R0<3) 

205  FORMA  T (/ . 14H  END  ITEM  TYPE.I2.13H  FROM  UNIT  NO.I2.15H  IS  REPAIRED 
1AT.F6.1.10H  BY  CT  NO. ,12) 

MCTW(W0RD(3))*TIME-TCTBF(W0R0<3)>  +  HCT  W  ( WORO  ( 3)  ) 

OTH(WORO(l) .WORD ( 2 ) ) =T IME -FTI ME+OTH (WORD d ) , WORD (2)) 

CAUL  GENTTF(WORO, TTF) 

call  SNEdFAIL.TIME+TTF.WORO.FTIME) 

TRANS P*T2 

IF(NICTQ.NE.0)GOTO10 

Z  TRANSPORT  CT  BACK  TO  SEABASEO  MAINTENANCE  SHOP 
WORD  (-6)  *  3 

IF (IOPT1.EQ.1)WRITE(6,206) 

206  FORMAT (59H  NO  OTHER  ENO  ITEMS  IN  CT  QUEUE ,  SO  SENO  CT  BACK  TO  SEAB 
1ASE) 

CALL  SNECIARRVL.TIME+TI.WORO.FTIME) 

TRTS*TRTS*T 1 
RETURN 

C  CT  REMAINS  ASHORE,  REPAIR  ENO  ITEM  IN  LOCATION  1  OF  CT  QUEUE 

10  WORO ( 1)  =  ICTQ  d ) 

NIER(3)*NIER(3)d 

W0RD(2)=NUICTQ(1) 

ISS(W0RD(3) )*NOTYPE+l 
WORO  (  6)  *  2 
WORO(5)*NECTQ(l) 

FTIME*TICTQ(1) 

CALL  GENTTR (WORO, TTR) 

CALL  SNE (ICOMPS,TIME*TTR*TRANSP»WORO»FTIM£) 

RTIMEsTIME+TTR+TRANSP 

IF (IOPT1.EQ.1 ) WRITE (6 ,211) WORO (3) ,MORO(l) , RT IME 
211  FORMAT (7H  CT  NO..I2.30H  WILL  REPAIR  ENO  ITEM  TYPE  N0..I2.14H  FROM 
1CT  QUEUE, 26H.  HE  WILL  FINISH  REPAIR  AT,F6.1,5H  HRS.) 

TCTBF (WORO (3) ) =TIME+TRANSP 
TRTS=TRTS*TRANSP 

HWIQ  t  3)  “TIME+-TRANSP-T ICTQ  (1)  +  HWIQ  (3) 

NICTQ=NICTQ-1 

IF(NICTQ.EQ.0)TQBE(3) =TIME+TRANSP 
IF(NICTQ.EQ.O)RETURN 
00  11  1*1  ,NICTQ 
ICTQ( I)  =  ICTQ(Id) 

NUICTQ(I)=NUICTQ(I+1) 

NECTQ 1 1 ) *NECT  Q ( I+l ) 

11  TICTQ  (I)*TICTQ(I  +  1) 

IF(IOPT3.EQ.l)CALL  RITCTQ 
RETURN 


160  COMMENT  COMPLETE  SERVICE  BY  OEOICATEO  CT 

4  CONTINUE 

IF(IOPT1.EQ.1)WRITE(6,205) WORD(l) , WORO (2) , TIME ,WORO( 3 ) 
HCTW(WORD(3))*TIME-TCTBF(WORO (3) ) +  HCTW (WORO (3) ) 
DTH(WORO(l> , WORO (2) > =TIME -FT IME+OTH (WORD (1 I ,WORO (20 
165  CALL  GENTTF(WORD.TTF) 
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CALL  SNE ( IFAIL,TIME*TTF,WORD,FTIME> 

IF(NICTQ.NE.O)GOT022 
C  T  RANSPORT  CT  TO  4  NEARBY  UNIT  ASHORE 
WORT  (  6)  =4 

17 J  IF (IOPT1.EQ.1)WRITE(6*204) 

2  0  4  FORMAT (72H  NO  OTHER  END  ITEMS  IN  CT  QUEUE,  SO  SEND  CT  BACK  TO  A  NE 

1 4R  °Y  UNIT  ASHORE) 

CALL  SNE ( IARRVL,TIME*T2, WORO.FTIME) 

TrTS=  TRTS  +T2 

175  RETURN 

C  CT  REPAIR  ENO  ITEM  IN  LOCATION  1  OF  CT  QUEUE 
22  WORD ( 1) =ICTQ( 1 ) 

NIER(3)=NIER<3)+1 
WORD( 2)=NUICTQ(1) 

180  ICTS(W0RD(3))=W0RD<1) 

WORD ( 6) =4 
W0P0(5)=NECTQ(1) 

FT IME=TICTQ(1) 

CALL  GENTTR ( WORD*  TTR) 

185  CALL  3NE(ICOMPS,TIME+TTR+T2,WORD,FTIME) 

RTIME=TIME+TTR+T2 

IF (IOPT1.EQ.1) WRITE (6,211) WORD ( 3) , WORD (1) *  RT IME 

TCT9F  <WORD(3>  >=TIME+T2 

TRTS=TRTS+T2 

190  HWIQ( 3)  =  TIME*T2-TICTQ  (1)+HWIQ(3) 

NICTQ  =NICTQ-1 

IFINICTQ.EQ.O) TQBE(3) =TIME+T2 
IF(NICTQ.EQ.O) RETURN 
DO  24  1=1, NICTQ 

195  ICTQ( I)=ICTQ(I+1) 

NUICTQ(I) =NUICTQ( I +1 1 
NECTQ<I)=NECTQ(I+1) 

24  TICTQ (I)*TICTQ(I+1) 

IF(IO»T3.EQ.l)CALL  RITCTQ 
200  RETURN 
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COMMENT  COMPLETE  SERVICE  AT  UNIT 
3  CALL  GENTTF(WORD, TTF) 

DTHCWORO(l) ,WORD(2) ) = TIME -FTI ME+DTH« WORO ( 1) ,HORO <2»> 

HUSW { WORD (2) )=TIME“TUSBF (WORD (2)) ♦HUSH ( WORD (2) ) 
IF(IOPT1.EQ.1)WRITE(6,208)WORO(1) ,WORO(2) .TIME 
208  FORMA  T (/ , 14H  END  ITEM  TYPE.I2.13H  FROM  UNIT  NO.I2.15H  IS  REPAIRED 
1AT ,F6.1,5H  HRS.) 

CALL  SNE  t IFAIL,TIME+TTF,WORO,FTIME) 

IF(NIUQ(W0RD(2)).NE.C)G0T012 
NIUSt WORD (2) )=NIUS(WORD(2) ) -1 
RETURN 

C  UNIT  MAINT  PERSONNEL  REPAIR  ENO  ITEM  IN  LOCATION  1  OF  UNIT  WORO<2)  QUEUE 
12  WORD( 1 ) = I UQ ( 1 , WOR O ( 2 ) ) 

NIER( 3  +  WORD  1 2 ) ) =N IER < 3 +WORD ( 2 ) ) +1 
TUSBF ( WORD ( 2 ) >  =T I  ME 
WORD ( 5) =NEUQ ( 1 . WORD ( 2 ) ) 

FTIME=TIUQ(l,WORD  (2)  ) 

CALL  GENTTR(WORD.TTR) 

CALL  SNE ( ICOMPS,TIME+TTR,WORD,FTIME) 
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SUBROUTINE  COMPS 


RTIME*TIME+TTR 

IF <I0PTl.E0.1>HRITE <6,212) HORO <1>  »RTIME 
212  FORM*  T <57H  UNIT  MAINTENANCE  PERSONNEL  HILL  REPAIR  END  ITEM  TYPE  NO 
l.I2,16H  FROM  UNIT  QUEUE, 25H  HE  HILL  FINISH  REPAIR  AT,F6.1,5H  HRS.) 
225  HWIQ<3*HORD<2) ) «T IME-TIUQ < 1 ,HORD< 2) ) ♦HHIQ < 3*HORD <2> ) 

NIUQI WORD (2) ) »NIUQ(H0R0<2  >  )-l 
IF (NI UQ (WORD (2 ) ) • EQ.O ) TQ0E <3+ HORO (2) ) *TIME 
IF (NIUQIHORO (2) ) , EO.O ) RETURN 
K»NIUQ<HORD<2) ) 

233  DO  13  I»1  *  K 

IUQ<I,H0R0<2>)»IUQ<I+1,H0R0<2> ) 

NEUO  f I , HORO (2) ) »NEUQ < 1*1, HORO (2) ) 

13  TIUQ(I,H0RD(2) )»T IUQ( 1*1, HORO (2) ) 

IF(IOPT3.EQ.l)CALL  RITEUQ (HORD) 

235  RETURN 

END 
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6.16  SUBROUTINE  QULENTHdlME.WORD^TIME) 


Called  By:  Subroutine  TNE 
Parameter  Used: 

TIME  Time  (clock  time)  subroutine  is  entered 


Abstract: 


The  variables  which  record  the  cumulative  queue  length  LENTHQ(i),  for  1=  1  through  (3+NUNIT) 

(i  refers  to  the  location  of  the  queue),  are  updated  by  the  present  queue  lengths  as  indicated  here: 

If  i=l  Seabase  queue  afloat  LENTHQ(  1  )=NISQ+LENTHQ(  1 ) 

If  i=2  Seabase  queue  ashore  LENTHQ(2)=NISQA+LENTHQ(2) 

If  i=3  CT  queue  LENTHQ(3)=NICTQ+LENTHQ(3) 

If  i=3+j,  j=l  ,NUNIT  Queue  at  unit  j  LENTHQ(3+j)=NIUQ(j)+LENTHQ(3+j) 

The  variables  LENTHC(i)  which  record  the  number  of  times  the  variables  LENTHQ(i)  are  updated  at  each 
location  i,  are  incremented  (LENTHC(i)=LENTHC(i)+l ,  for  i=  1  through  (3+NUNIT)). 

The  updating  of  the  variables  LENTHQ  and  LENTHC  is  scheduled  next  for  time  TIME+TIMEINT  by 
calling  the  function  SNE(1QL,TIMEINT+TIME,W0RD,FTIME).  Control  of  the  problem  is  returned  to 
Subroutine  TNE. 
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SUBROUTINE 


QULENTH 


5 


1J 


15 


20 


SUBROUTINE  QULENTH ( T I  ME , WORO , FT IME ) 

C0MM0N/N1/GTIME»IECHAV(5) , NOT YPE , NUNIT, IOCT , NMI , KMI, IE AU (3 ,10 ) 

1  ,PCTR(3) ,PF(5) .CLASS 

COMNON/N5/ICT  Q ( 20  0 1  , ISQ( 200) » ISO A (200 ) , ISS (10) ,IUQ (200,10) ,NICTQ, 

1  NIC TS,NISQ,NISQA ,NIUQ(10) ,NIUS (10) ,NPISQ (200 ) ,  NPISQA (200), 

1  NUI CTQ ( 200 ) ,TICTQ(200) , TISQ (200 ) , TISQ A (20 0 ) , TI UQ (20 0 , 10 ) 

1  , NESQ(200),NESQA(200) ,NEUQ(200,10) ,NECTQ(200) ,ICTS(10) 
COMMON/N7/DTH ( 15C ,10) ,HQE(13> ,HMIQ(13> , LENTHC( 13 ) ,LENTHQ( 13) , 

1  MAXQL(13),NENTER(13)*Ql(13) , TQBE (13) ,WT(13) ,NDISC (150 ) , NOREQ( 150 ) 
1  , HCTM(19) , TCTBF( 10 ) , HSSW (10) ,TSSBF(10) ,TRTS ,NIER (13 > , IHAXQL (13) 

1  ,INENTR(13),TINEINT,HUSM(10) ,TUSBF (10) .NOFAIL (150,10) 

DATA  IOL/1/ 

LENTHO (1) »LENTHQ( 1 ) +NISQ 
LENTHQ(2) »LENTHQ(2) +NISQA 
LENTHQ(3) *LENTHQ( 3) +NICTQ 
DO  1  I«l, NUNIT 

1  LENTHQ(3+I>«LENTHQ(3*I>*NIUQ(I) 

J*3*NUNIT 

DO  2  1*1, J 

2  LENTHC(I)«LENTHC(I)+1 

CALL  SNE ( IQL, TIME INT+TIME ,NORO ,FTINE) 

RETURN 

END 
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6.17  SUBROUTINE  GENMT(WORDJEMP) 
ENTRY  GENTTF(WORDJEMP) - 


Called  By:  Subroutine  S1E,  Subroutine  REQUST,  Subroutine  COMPS 

Parameters  Used: 

WORD(l)  Type  of  item 

TEMP  Operating  time,  in  hours,  prior  to  failure 

Abstract: 

This  entry  computes  the  interval  of  time  (TEMP)  that  item  WORD(l)  is  to  operate.  This  interval  is 
a  function  of  the  Mean  Time  Between  Failures  (MTBF)  and  utilization  factor  (UF)  of  WORD(l)  and  a 
generated  random  number.  Control  of  the  program  is  returned  to  the  calling  subroutine. 

ENTRY  GENTTR(WORDJEMP) - 

Called  By:  Subroutine  FAIL,  Subroutine  COMPS,  Subroutine  ARRVL 
Parameters  Used: 

WORD(5)  Echelon  level  required  for  repair 

WORD(6)  Location  of  repair 

TEMP  Interval  of  time,  in  hours,  required  for  repair 

Abstract: 

This  entry  computes  the  interval  of  time  (TEMP)  needed  for  the  repair  of  item  WORD(l).  This 
interval  is  a  function  of  the  echelon  level  required  for  repair,  the  location  of  the  repair  and  a  generated 
random  number.  Control  of  the  program  is  returned  to  the  calling  subroutine. 
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SUBROUTINE  GENMT 


SUBROUTINE  GENMT ( HORO ,TEMP) 

INTEGER  WORD (6) 

REAL  MT3F,MTTR2,MTTR3AU.MTTR3CT|MTTR4 

COMMON/N4/MT8F(150>  ,UF(150»  ,MTTR2 , MTTR3 AU t MTTR3D T , MTTR4 
5  ENTRY  GENTTF 

RN*RA  NF ( DUM) 

TEMPs ( (-MTBF (WORO (1) ) *24. 0 ) /UF (HOROtl 1 1 ) * ALOG ( RN ) 

RETURN 

ENTRY  GENTTR 
10  RN=RANF(OUM) 

IF (HORO (5) . EQ.2)TEMP*-MTTR2*ALOG(RN) 

IF(H0R0(5) .EQ.3.ANO. (HORO (6) .EQ.2.  OR. HORO (6) .EQ.4M 
1  TEMP*-MTTR3CT*ALOG(RN) 

IF ( WORD (5 » .EQ. 3. AND. (HORO (6) . EQ. 1 . OR . HORO ( 6)  .EQ.3I ) 

15  1  TEMP*-MTTR3AU*ALOG(RN» 

IF (HORO (5) ,EQ.4)TEMP*-MTTR4*AL0G(RN) 

RETURN 

END 


6.18  SUBROUTINE  ENDMIS 


Called  By:  Executive  Routine 

Abstract: 

Subroutine  ENDMIS  updates  various  output  variables,  as  indicated  below,  when  a  mission  (KMI)  is 
complete  (KMI  ranges  from  1  through  NMI): 

•  Total  amount  of  time  items  are  non -operational 

•  Total  amount  of  time  items  are  in  the  individual  queues  prior  to  repair 

•  Total  amount  of  time  queues  are  empty 

•  Total  amount  of  time  spent  in  repair  by  maintenance  personnel 

•  Total  number  of  unfilled  requests 

•  Maximum  queue  length  recorded  for  this  mission 

•  Number  of  items  added  to  the  individual  queues 

•  Average  queue  length  recorded  for  this  mission 

•  Average  amount  of  time  items  are  in  the  individual  queues  prior  to  repair 

The  downtime  of  individual  failed  items  still  not  repaired  at  the  end  of  a  mission  must  be  added  to 
the  downtime  totals.  At  the  end  of  the  mission,  the  items  that  are  still  out  of  operation  will  include: 

•  Those  requested  by  the  units  as  float  items 

•  Those  undergoing  repair  by  a  CT  or  at  the  units 

•  Those  still  in  the  CT  or  the  unit  queues 

If  the  repair  request  was  submitted  by  a  unit;  i.e.,  for  every  i=  1  through  NR,  the  downtime  at  unit  NURQST(i) 
requesting  float  item  type  NTRQST(i)  at  the  end  of  the  mission  is 

DTH(NTRQST(i),NURQST(i))  =  GTIME  -  TIRQST(i)  +  DTH(NTRQST(i),NURQST(i)). 

If  the  item  was  undergoing  repair  by  a  CT  or  at  one  of  the  units,  the  event  list  must  be  examined  to  isolate 
the  complete  service  events;  i.e.,  for  every  i=  1  through  IPTR  such  that  EVENT(i)=2  and  WORDS(6,i)fT .  The 
downtime  for  item  WORDS(l,i)  from  unit  WORDS(2,i)  undergoing  repair  by  CT  at  the  end  of  the  mission  or 
by  a  unit  at  the  end  of  the  mission  is 

DTH(WORDS(l  ,i),WORDS(2,i))  =  GTIME  -  FTIMES(i)  +  DTH(WORDS(l  ,i),WORDS(2,i)). 

If  the  item  was  awaiting  repair  in  the  CT  queue;  i.e.,  for  every  i=  1  through  NICTQ,  the  downtime  for  item 
ICTQ(i)  from  unit  NUICTQ(i)  in  the  CT  queue  at  the  end  of  the  mission  is 

DTH(ICTQ(i),NUICTQ(i))  =  GTIME  -  TICTQ(i)  +  DTH(ICTQ(i),NUICTQ(i)). 

If  the  item  was  awaiting  repair  in  a  unit  queue;  i.e.,  for  every  i=  1  through  NUNIT,  and  for  every  j=  1  through 
NIUQ(i),  the  downtime  for  item  IUQ(j,i)  at  unit  i  at  the  end  of  the  mission  is 

DTH(IUQ(j,i),i)  =  GTIME  -  TIUQ(j,i)  +  DTH(IUQ(j,i),i). 

The  amount  of  time  individual  items  still  in  the  queues  at  the  end  of  a  mission  have  spent  in  these 
queues  must  be  added  to  the  total  amount  of  time  items  are  in  the  individual  queues.  The  following  four 
expressions  represent  updating  of  the  total  amounts  of  time  that  items  wait  in  the  seabase  queue,  the  seabase 
queue  ashore,  the  CT  queue,  and  the  unit  queue  by  the  waiting  times  of  those  items  still  in  the  queues  at  the 
end  of  the  mission.  For  example,  the  time  that  items  wait  in  the  seabase  queue  is  updated  by  the  interval 
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GTIME-TISQ(i)  which  represents  the  time  that  the  ith  item  spends  in  the  queue  until  the  end  of  the  mission. 
TISQA(i),  TICTQ(i),  and  TIUQ(j,i)  represent  the  times  that  items  entered  the  other  three  queues.  If  the  item 
was  in  the  seabase  queue  afloat;  i.e.,  for  every  i=  1  through  NISQ: 

HWIQ(l)  =  GTIME  -  TISQ(i)  +  HWIQ(l). 

If  the  item  was  in  the  seabase  queue  ashore;  i.e.,  for  every  i=  1  through  NISQA: 

HWIQ(2)  =  GTIME  -  TISQA(i)  +  HWIQ(2). 

If  the  item  was  in  the  CT  queue;  i.e.,  for  every  i=  1  through  NICTQ: 

HWIQ(3)  =  GTIME  -  TICTQ(i)  +  HWIQ(3). 

If  the  item  was  in  a  unit  queue;  i.e.,  for  every  i=  1  through  NUNIT,  and  for  every  j=  1  through  NIUQfi): 
HWIQ(3+i)  =  GTIME  -  TIUQ(j,i)  +  HWIQ(3+i). 

The  amount  of  time  individual  queues  which  are  empty  at  the  end  of  a  mission  have  been  empty 
must  be  added  to  the  total  amount  of  time  queues  are  empty.  TQBE(l),  TQBE(2),  TQBE(3),  and  TQBE(3+i) 
represent  times  that  the  last  item  was  removed  from  the  queue.  If  there  are  no  items  in  the  seabase  queue 
afloat;  i.e.,  if  NISQ=0: 

HQE(l)  =  GTIME  -  TQBE(l)  +  HQE(l). 

If  there  are  no  items  in  the  seabase  queue  ashore,  i.e.,  NISQAO. 

HQE(2)  =  GTIME  -  TQBE(2)  +  HQE(2). 

If  there  are  no  items  in  the  CT  queue;  i.e.,  NICTQO: 

HQE(3)  =  GTIME  -  TQBE(3)  +  HQE(3). 

If  there  are  no  items  in  a  unit  queue;  i.e.,  for  every  i=  1  through  NUNIT,  if  NIUQ(i)=0: 

HQE(3+i)  =  GTIME  -  TQBE(3+i)  +  HQE(3+i). 

The  amount  of  time  spent  in  repair  by  maintenance  personnel  still  repairing  items  at  the  end  of  a 
mission  must  be  added  to  the  total  amount  of  time  spent  in  repair.  The  following  three  expressions  represent 
updating  of  the  toal  time  spent  in  repair  at  the  seabase,  by  CT,  and  at  the  unit  by  the  repair  times  of  those 
items  still  under  repair  at  the  end  of  the  mission.  For  example,  the  total  repair  time  at  the  seabase 
HSSW(WORDS(3,i))  is  updated  by  the  interval  GTIME-TSSBF(WORDS(3,i))  representing  the  time  that  repair 
space  WORDS(3,i)  is  occupied  until  the  end  of  the  mission.  TSSBF(WORDS(3,i)  represents  the  time  that 
repair  began  at  space  WORDS(3,i).  TCTBF(WORDS(3,i))  and  TUSBF(WORDS(2,i))  represent  the  times, 
respectively  that  CT  WORDS(3,i)  and  unit  WORD(2,i)  began  repair  on  an  item  still  under  repair  at  the  end  of 
the  mission.  If  a  maintenance  man  at  the  seabase  was  involved  in  a  repair  at  the  close  of  a  mission  the 
event  list  must  be  examined  to  isolate  the  complete  service  events;  i.e.,  for  every  i=  1  through  IPTR  such  that 
EVENT(i)=2  and  WORDS(6,i)=l : 

HSSW(WORDS(3,i))  =  GTIME  -  TSSBF(WORDS(3,i))  +  HSSW(WORDS(3,i)). 

If  a  CT  ashore  was  involved  in  a  repair  at  the  close  of  a  mission  the  event  list  must  be  examined  to  isolate  the 
complete  service  events;  i.e.,  for  every  i=  1  through  IPTR  such  that  EVENT(i)=2  and  WORDS(6,i)=3: 

HUSW(WORDS(24))  =  GTIME  -  TUSBF(WORDS(2,i))  +  HUSW(WORDS(2,i)). 
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The  number  of  requests  for  float  items  still  unfilled  at  the  end  of  a  mission  must  be  added  to  the 
cumulative  total  number  of  requests  unfilled  from  previous  mission;  i.e.,  for  every  i=  1  through  NR: 

NOREQ(NTRQST(i))  =  NOREQ(NTRQST(i))  +  1 . 

In  the  following  four  paragraphs,  the  variable  i  refers  to  the  location  of  the  queue  as  indicated  here: 
If  i=l  Seabase  queue  afloat 

If  i=2  Seabase  queue  ashore 

If  i=3  CT  queue 

If  i=3+j,  j=l  ,NUNIT  Queue  at  unit  j 

The  maximum  queue  length,  IMAXQL(i),  recorded  for  this  mission  at  each  queue  location  i  must  be 
added  to  the  cumulative  total  of  maximum  queue  lengths  from  the  previous  missions,  IMAXQL(i),  recorded 
for  each  location  i;  i.e.,  for  every  i=  1  through  (3+NUNIT): 

IMAXQL(i)  =  MAXQL(i)  +  IMAXQL(i). 

The  number  of  items  added  to  the  queue  at  each  location  i,  NENTER(i),  during  this  mission  must  be 
added  to  the  cumulative  total  from  the  previous  missions,  INENTR(i),  of  the  number  of  items  added  to  the 
queue  at  each  location  i,  for  every  i=  1  through  (3+NUNIT): 

INENTR(i)  =  NENTER(i)  +  INENTR(i). 

The  average  queue  length  recorded  at  each  queue  location  i,  LENTHQ(i)/LENTHC(i),  for  this  mission 
must  be  added  to  the  cumulative  total  from  the  previous  missions,  QL(i),  of  average  queue  lengths  recorded 
at  each  queue  location  i,  for  every  i=  1  through  (3+NUNIT): 

QL(i)  =  LENTHQ(i)/LENTHC(i)  +  QL(i). 

The  average  amount  of  time  an  item  waits  in  the  queue  at  location  i,  HWIQ(i)/NENTER(i),  during 
this  mission  must  be  added  to  the  cumulative  total  from  the  previous  missions,  WT(i),  of  the  average  waiting 
times  at  each  queue  location  i,  for  every  i=  1  through  (3+NUNIT): 

WT(i)  =  HWIQ(i)/NENTER(i)  +  WT(i). 
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SUBROUTINE  ENDMIS 
INTEGER  EVENT, WORDS, TYPENO 

C0MM0N/Ni/GTIME,IECMAV<5> , NOT YPE , NUNI T , 10 CT , NMI, KM I, IE AU (3 ,10 ) 

1  ,PCTR(3) ,PF(5) , CLASS 
C0MM0N/N2/NCTS,NSS,NUS 

COMMON/ N3/INV(15J ) ,NEI(30 ,10)  ,  NF I  ( 15  0  )  ,  NL  I  ST  (1  0  > , NR, NT  RQST (200), 

1  NURQST (200) ,TIRQST (200) , TYPENO ( 3 0 , 10 ) , T AMNO (150 ) 

COMMON/N5/ICTQ(20  C) , I SQ ( 2 0 C ) , I SQA ( 20 0 ) , I S S ( 1 0 ) , I UQ (20 J , 1 0 ) , N IC TQ , 

1  NICTS,NISQ,NISQA,NIUQ(1C)  ,NIUS(10)  ,  NP ISO  ( 200  ) ,  NP ISQA  (2  00, 

1  NUICTQ(200) ,TICTQ(200) , TISQ (200 ) ,TISQA(2jO) ,TIUQ(2C0 ,10) 

1  , NESQ(2G0),NESQA (230), NEUQ (200,10), NECTQ (200), ICTS(IO) 
COHHON/N7/DTH(153 ,10) ,HQE (13) ,HWIQ ( 1 3 ) , LE NTHC ( 13 > ,LENTHQ(13) , 

1  MAXQLU3)  ,NENTER(13)  ,  Qt  (13)  ,  TQBE  (13)  ,WT(13)  ,NOI  SC  (15 0  ) ,  NOREQ  ( 150  ) 
1  , HCT  W ( 1 Q ) ,TCTBF(1G) ,HSSW (10) , TSS BF ( 1 0 )  , T RTS , N IE R ( 13 ) ,IHAXQLI13) 

1  , INE  NTR ( 13 ) , TIME  I NT, HUSW(IO)  ,TUSBF(10) , NOFAIL (150,10) 

COMHO N/SNTN/CLOCK ( 3 0 0 ) , EVENT ( 3 0 0 ) , IPTR, WORDS (6 , 3 0 0 ) , FT IMES (300) 

IF(NR.EQ.O)GOTOll 

00  1C  1=1, NR 

10  OTHCNTRQSTU)  ,  NURQST  ( I )  )  *GTIME-TIRQST  ( I )  +OTH  (NTRQST(  I )  ,  NURQST  ( I )  ) 

11  DO  13  1=1, IPTR 

IF (EVENT  <I> .EQ.2. AND . WORDS ( 6, I ) . NE . 1 ) DTH( WORDS (1,1) 'WORDS (2, I > )= 

1  GTIME-FT IMES ( 1 1 ♦DTH ( WOROS (1,1) ,WORDS(2,I)) 

13  CONTINUE 

IF (NICTQ«EQ#Q)GOT014 
00  15  1  =  1  ,NICTQ 

15  OTH(ICTQ(I) tNUICTQ(I) ) =GT IME-T ICT Q ( I) ♦DTH ( ICTQ (I ) , NUICTQI I ) ) 

14  DO  16  1  =  1 , NUN  IT 
IFCNIUQ(I) .EQ.O)GOT016 
K=  NIU  Q ( I ) 

DO  17  J=1 , K 

17  DTH(IUQ(J,1) , I) *GTIME-TIUQ ( J, I ) ♦OTH ( I UQ ( J » I) , I ) 

16  CONTINUE 
IF<NISQ.EQ.0)GOTOl 
DO  6  1=1 , NISQ 

6  HWIQ(  1)=GTINE-TISQ(I )  ♦HWIQU) 

1  IF(NISQA.EQ.0)GOTO5 

DO  16  1=1 , NISQA 

18  HWIQ( 2)=GTIME-TISQA (I ) ♦HM IQ (2 ) 

5  IF(NICTQ.EQ,0)GOT07 

DO  4  1=1 , NICTQ 

4  HW IQ ( 3)=GTIME-TICTQ(I)*HWIQ(3> 

7  DO  8  1=1, NUNI T 
IF(NIUQ(I).EQ.O)GOT08 
K=NIUQ ( I ) 

00  9  J=1 , K 

9  HHIQ( 3+1) =GT IME-T IUQ ( J, I ) ♦  HWIQ(3d> 

8  CONTINUE  * 

IF (NISQ.EQ.fll HQE(1)=GTIME-TQBE (1) +HQE (1) 

IF (NISQA. EQ.OJHQE ( 2 ) = GT I ME-TQBE (2 ) +  HQE ( 2 ) 
IF(NICTQ.EQ.0)HQE(3)=GTIME-TQBE(3)+HQE(3) 

DO  19  1  =  1 , NUN  IT 

IF (MI UQ (XI .EQ.0)HQE(3*I) =GT IM E-TQBE ( 3 +1 > *HQE ( 3 +1 > 

19  CONTINUE 
J=3+NUNIT 
DO  2  1=1, J 
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ENDMIS 


60 


65 


70 


75 


IMAXQL  t I) =MAXQl ( I ) ♦ I MAXQL (I) 

INENTR(I) =NENTER(I)+INENTR(I> 

A=LENTHQ (I) 

9=  LEN  T  HC ( I ) 

D=NENTER(I) 

IF(B. NE.0.)QL(I)  =  A/B  +  QKI) 

IF (D. NE.O .) WT ( I )  =  HWIQ ( I) /D  +  WT (I) 

2  CONTINUE 

DO  24  I=1,IPTR 

IF (EVENT (I) .EQ. 2. AND. WORDS (6, I) . EO . 1 ) HSSW ( WO RDS( 3 , I) ) =  GT IME- 
1  TSSBF ( WORDS (3, I ) ) ♦ HSSW (WORDS (3. I) ) 

IF  (EVENT  (I ) .EQ.2. AND.  (WORDS (6 , I ) . E Q. 2 . OR. WOROS (5,I).EQ.4)>  HCTW(WOR 
IDS (3, I) ) =GT IME-TCTBF ( WORDS (3, I) ) +  HCTW (WORDS  C 3 *  I )  ) 

IF (EVENT (I). EQ.2. AND. WORDS (6,1 ).EQ. 3) HUSW( WORDS (2,1)) =GTIME- 
1  T  USBF (WORDS (2,1)  ) +HU S W ( WORDS ( 2 , I ) ) 

24  CONTINUE 

IF(NP.EQ.0)GOTO27 
DO  26  1=1, NR 

2  6  NOREQ (NTRQST( I) >  =  NORE Q ( NT RQST ( I)  )  U 

27  CONTINUE 

RETURN 
END 


6.19  SUBROUTINE  OUTPUT 


Called  By:  Executive  Routine 
Abstract: 

This  subroutine  averages  the  information  in  the  output  variables  by  dividing  the  running  sums  by 
NMI.  It  then  prints  out  these  averages  for  the  commodity  class  under  consideration. 
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SUBROUTINE  OUTPUT 
INTEGER  TYPENO, CLASS 

COMMON/N1/GTIME,IECHAV(5) , NOT YPE , NUNI T , IOCT , NM I , KMI , I E AU ( 3 , 10 > 

1  , PCT  R ( 3 )  ,PF(5) .CLASS 
COMMON/N2/NCTS*NSS,NUS 

COMMON/N3/INV(150) ,NEI  (30  ,10)  ,NFI ( 153) , NLIST  (10)  ,NR,NTRQST (200  ) , 

1  NURQST (2C3) . T IRQS T (  2 0 0 ) , TYPE  NO ( 3 0 , 10 ) . T AMNO  (150 ) 

COMMOtVN7/OTH(150 ,10 ) ,HQE (13) , HW I Q (1 3  I , LE NTHC ( 13 ) »LENTHQ(13) , 

1  MAXOLI13) .NENTER (13) ,QL (13) ,TQBE (13) ,WT(13)  ,NOI SC (150 ) , NOREQ ( 153 ) 
1  ,  HCT  Ml  11 )  .TCTOF  ( 10  )  ,HSSW  (10)  ,  TSS  BF  ( 1 0  )  , T RTS  ,N IER  ( 13  )  ,  IMAXQL  (13) 

1  , INENTRI13) .TIMEINT , HUS  W ( 10 ) ,TUSBF(10) , NOFA IL (15 0 , 10 ) 

COMMON/ N10/NPRR2(4) , NPRR3 (4) ,NPRR4(4> 

DIMENSION  OTHPI (150.10) ,UAVAIL( 15  0,10 ) , IHQE ( 13), IQL ( 13  ) , IHT ( 13 ) 

1  ,TMHiJ(10)  ,NPRU(10)  ,UUTIL  (10) 

WRITE  (6,1) 

1  F0RMAT(1H1,53X,14H0PERATING  DATA) 

ANMI=  NMI 
TOTAL  =0 • 

TOTAL  3  =  0  . 

IT  =0 

TNOFAIL=0. 

00  2  J= 1 , NUNI T 
SU  B=0  . 

SUB2=0. 

SU93=3. 

Tl  =  0. 

WRITE  (6,3) J 

3  FORMAT!//, 53X.8H***  UNIT, 13, 4H  ***) 

WRITE  (6,18) 

18  FORMA  T ( / ,  BX.7HTAM  NO. , 3X , 21HNO .  END  ITEMS  IN  UNIT , 3X , 

1  1 4HO  OWNT I  ME  HOURS, 3X , 28H AVER AGE  OT  HOURS  PER  FAILURE, 3X, 

1  12HAVAILA3ILITY) 

K=  NL I  ST  ( J ) 

00  4  1  =  1, K 
IT  =NE  I  (I ,  J)  *IT 
Tl=NEI(I, J)+T1 

DTH(TYPENO(I,J) ,J)=OTH(TYPENO (I,J),J)/ANMI 
ANF=NOFAIL(TYPENO(I,J) ,J) /ANMI 

tnofail=anf*tnofail 

IANF=ANF 

ANF 1=  ANF- I ANF 

IF(ANF1.GE..5)IANF=IANF+1 

IF  (IANF.NE.O)  OTHPI  (TYPENO  (I,J)  ,  J)  =OTH  (TYPENOd  ,J)  ,  J)/IANF 
IF (IANF.EQ.O) OTHPI (TYPENO <I,J) ,J)=0. 

UAVAIL(TYPENO (I,J) , J) = (GT IME-OTH ( TYPENO ( I ,J ) ,J)/NEI(I, J) J/GTIME 
WRITE  (6,5)  TAMNOITYPENOd  ,J) )  ,  NE I  ( I ,  J)  ,  DTH  (T  YPENO  ( I ,  J )  ,  J)  , 

1  DTHPI(TYPENO(I,J) ,J) ,U A V A IL ( T YPE NO ( I , J ) ,J) 

5  FORMAT (9X ,A5,13X, I3,12X,F1Q,1,16X,F6. 1, 19X.F6.4) 

SUB=D TH t TYPENO!  I, J) ,J) +SUB 

4  SUB2=0THPI (TYPENO (I ,J)  ,J) +SUB2 

SUB2=SUB2/NLIST (J) 

SUB3= (T1*GTIME-SUB) / (Tl*GTIME  > 

WRITE (6,6) J,SUB,SUB2,SUB3 

6  FORMAT (//,16X,4HUNIT , I2,17H  CHAR ACTERIST ICS- ,3X , F10 . 1 , 16X , F6 . 1 ,19X 
1.F6.4) 
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113 


TOTAL  sSU'3  +  TOTAL 

2  CONTINUE 

TOTAL2*TOTAL/TNOFAlL 

total  3* (IT*GTI ME- TOTAL)/ IIT*GTIME) 

WRITE  (6,7)T0TAL,T0TAL2*T0TAL3 

7  FOPNA  T(//f 135H  ****♦*********♦♦****♦*****♦****♦*♦•**♦*♦**♦* 

1U  CHARACTERISTICS, //,40X,21HCUMM'JLATIVE  OT  HOURS  *  fF20 . 4*  //  ,4  jX  , 

1  2 9HAVERAGE  OT  HOURS  PER  FA IL URE * , FI 2 . 4 , / / , 4(J X , 2 1  HAVE R AGE  AV A  I  LABI 
1LITY**F2Q.4) 

WRITE  (6*9) 

8  FORMAT (lHitSOX* 19 HD ISCARO  INFO RHA T ION , / / , 18X , 1 CH T A M  NUMBER , 2X * 15H I 
ITEMS  DISCARDED, 2X*22HITEM  REQUESTS  UN F I LL EO * 2X , 3 0 HORI G INA L  NUMBER 
10F  FLOAT  ITEMS) 

IT  OT  A  L  =  0 
00  9  1=1*  NOT  Y Pt 
OISC*NOISC(I) /ANMI 
NO  ISC  ( I ) =  DI SC 
OISCl=OISC*NOISC( I) 

IF (DISCI. GE* .5)N0ISC(I)«N0ISC (I)+l 

REO*NOREQ(I)/ANMI 

NOREQ  ( I ) =  REQ 

REQl=REQ-NOREQ(I> 

IF(REQ1.GE. .5) NOREQ ( I ) *NOREQ ( I ) U 
ITOTAL=ITOTAL+NDlSC(I) 

9  WRITE  <6,1G)TAMN0(I) ,NDISC(I> ,NOREQ(I) »NFI(I> 

10  FORMAT (20X*A5* 11X  *  13* 17X* I3*25X*I3) 

TOTAL=ITOTAL 

TOTAL  *TOT  AL/ IT 

WRITE (6,19) ITOTAL  *TOTAL 

19  FORMAT (//,42X,22HT0TAL  ITEMS  D ISC AROEO= , 1 15 , // ,4 2X ,2 7HPERCENT  OF  I 
ITEMS  DISCARDED*, F1C. 4) 

WRITE  (6*25) 

25  FORMAT (/,55X, 10 H* *♦♦****♦*,/) 

WRITE (6,11) (1*1=1, NUNIT) 

11  FORMA  T (  47X,25HCHARACT ERISTICS  OF  QUEUES ,/, 10  OX, SHAT  UNITS,/, 

1 39 X , 1 0 HA T  SEA9ASE,2X,18HA SHORE  FOR  SEABASE,2X, 13 HA SHORE  FOR  CT9I5) 
J  =  3  +  NUNI T 
DO  57  I=1*J 

HQE ( I ) =GT IME-HQE ( I ) /ANMI 
HOE(I)=HQE(I)/GTIME 
QL ( I ) =QL ( I ) /NMI 
IQL ( I ) =QL ( I ) 

QL 1=QL ( I ) - IQL ( I) 

IF (QL1.GE. .5) IQL( I)=IQL(I>+1 
AMAXQL=IMAXQL(I)/ANMI 
IMAXQL(I)=AMAXQL 
AMAXQL1  =  AMAXQL“IMAXQL  (I) 

IF (AMAXQL1.GE. .5) IMAXQL (I)*IMAXQL (I) +1 
ANI£R=NIER(I) /ANMI 
NIER ( I ) = ANIER 
ANIER1  =  ANIER-NIER  (I) 

IF (ANIER1.GE. . 5 ) N I ER < I > = N IER ( I)+l 

ANENTP=INENTR(I)/ANMI 

INENTR(I) =ANENTR 
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ANENTR1=ANENTR-INENTR  (I) 

IF (ANENTR1 .GE. .5) INE NTR ( I )  =  I NENTR  ( I ) +1 
WT (I) =WT (I) /NMI 
IWT(I >=WT  (I) 

WT1=HT(I>-IMT(I» 

57  IF(WT1.GE..5) I W T  C I »  =  I WT  C I ) ♦ 1 

WRITE (6,32) NIER(l) , (NIERt I) ,1=3, J) 

32  FORMAT!/, 29H  NO.  OF  ITEMS  ENTERING  REPA IR 116 , 1 3X , 3HN/ A II 8 , 5X , 9 15) 
WRITE (6,13) (INENTR(I) ,1=1, J) 

13  FORMA T (/ , 28H  NO.  OF  ITEMS  ENTERING  QUEUE , 1 17 , 1 16 , 118 , 5X, 915) 

WRITE (6,14) (IQL(I) ,I=1,J) 

14  FORMAT!/, 26H  A V.  NO.  OF  ITEMS  IN  QUEUE , 119, 1 16, 1 18, 5X , 915) 

WRITE (6,15) (IMAXQL (I) ,I«1,J) 

15  FORMA T ( / , 27H  MAX.  NO.  OF  ITEMS  IN  QUEUE , 1 18, 116, 118, 5X ,915 ) 

WRITE (6,17) (HQE(I) ,I=1,J) 

17  FORMAT!/, 29H  PERC.  OF  TIME  QUEUE  OCCUPIEO , F16. 2, F16. 2 , FI 8. 2 , 5X , 

1  9F5.2) 

WRITE  (6, 16) (IWT (I) ,I  =  1,J) 

16  FORMAT!/, 38H  AV.  TIME,  IN  HRS,  ITEMS  WAIT  IN  QUE UE , 17 , 116, II 8, 5X, 

1  915) 

THSSW  =  0 . 

THCTW  =0 . 

TRTS=  TRTS/NMI 
DO  53  1=1,10 

53  THSSW=HSSW(I) ♦THSSW 
THSSW =THSSW/NMI 

DO  54  1=1,10 

54  THCTW =HCT W ( I ) +THCTW 
THCTW=THCTW/NMI 
SUTIL=THSSW/NSS/GTIME 
WRITE  (6,22) 

22  FORMAT (1H1,45X,29HSH0P  AND  PERSONNEL  STATISTICS) 

WRITE (6,25) 

WRITE  (6,51) THSSW 

51  FORMAT(55X,10HAT  SE ABASE , // , 3 6X , 3 2HTOTAL  SHOP  HOURS  SPENT  IN  REPAI 
1R,F15.4,/) 

WRITE  (6,48) SUTIL 

48  FORMAT(36X,30HPERC.  OF  TIME  SHOP  IS  UTI LI  ZED ,F 17 . 4,/) 

TMH=0  . 

IF(IDCT.EQ.1)G0T023 

IF  (IECHAV(4).EQ.1)TMH=THSSW*NPRR4(CLASS)*THCTW+TRTS 
IF (IE  CHAV (4) .NE.l . AND . IECHA V ( 3 ) .EQ. 1) TMH=THSSH*NPRR3 ( CLASS >+THCTM* 
1  TRTS 

IF (IE  CHAV (4) .NE.l . AND . IECHA V ( 3 ) .NE.l) TMH*THSSW*NPRR2 (CLASS) ♦THCTM* 
1  TRTS 
G0T024 

2  3  IF (IE  CHAV (4) .EQ.l) TMH  =  THSSW*NPRR4 (CLASS) 

IF (IECHAV (4) .NE.l. AND. IECHAVI3) .EQ.l > TMH*THSSM*NPRR3 (CLASS ) 

IF (IECHAV (4) .NE.l. AND. IECHAV (3) .HE . 1 ) TMH=THSSH*NPRR2 t CLASS ) 

24  WRITE (6,39)TMH 

39  FORMA T(36X,15HTOTAL  MAN  H OURS , F32 .4, / ) 

FNPR=  TMH/ (GT I  ME/2  4 . *8  .  ) 

NPR=FNPR 

FNPR1=FNPR-NPR 

IF (FNPR1,NE.0.)NPR=NPR+1 
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WRITF  (6,40) NPR 

40  FORMAT (36X,22HTOTAL  PERSONS  REQUI RED , 12 5 , / , 3 6X , 2 6H (*A S ED  ON  TOTAL 
IMA  N  HOURS)) 

IF (SUTIL.GT. .6667) WRITE (6, 36) 

36  FORMAT (/*36X,36HN0TE-A0PITI0NAL  PERSONNEL  ARE  NEEDED*/) 

IF  (IOCT.EQ. 2)GOT038 

WRITE  <6,25) 

WRITE  (6  *  41 ) T HOT W 

41  FORMAT (49X,22HASH0RE  FOR  C.T.  RE P A IR , // , 3 9X * 27HT OT AL  HOURS  SPENT  I 
IN  REPAIR, F16. 4*/) 

AHCTW=THCTW/NCTS 

IF (IOCT.EQ. 1) WRITE  <6, 42) AHCTW 

42  FORMA  T  <39X,29HAVERAGE  HOURS  SPENT  IN  RE  PA IR , FI  4. 4 , /) 

WRITE  <6 ♦ 43 ) TRTS 

43  FORMAT (39X,33HTOTAL  HOURS  SPENT  IN  TR ANSPORT  , F 13 . 4 , / ) 

AT  RTS  *TRTS/ NCTS 

PE  RC  =  ATRTS/GT I ME 

IF (IOCT.EQ. 1) WRITE <6,44) A TRTS,PERC 

44  F0RMAT(39X,32HAVERAGE  HOURS  SPENT  IN  TR AN SPORT ,F 1 1 . 4 , / /, 39X , 37HPE R 
1 CENT AGE  OF  TIME  SPENT  IN  TRANSPORT ,F6. 4 ,/ ) 

CTUTIL=  <AHCTWfATRTS)/GTIME 
IF (IOCT.EQ. 1) WRITE (6, 34) C TUT  I L 

34  FORMAT(39X,33HPERCENTAGE  OF  TIME  CT  IS  UTIL IZEO, FI 0. 4, /) 

30  WRITE (6,25) 

DO  33  1  =  1,  NUN  I T 
HUSW ( I ) *  HUSW ( I )/NMI 
3  3  UUTIL  (I) =  HU$W ( I ) /GTIME 

WRITE  (6,49) (1,1*1, NUN IT ) 

49  FORMAT(30X,45HAT  UNITS  (VALID  IF  UNIT  REPAIR  CAPACITY  IS  1>,/,33X, 
1  1CI10) 

WRITE  (6,26)  (HUSW ( I) , I  =  1,NUNIT) 

26  FORMA  T (  / , 33H  TOTAL  SHOP  HOURS  SPENT  IN  REPAIR •10F10 • 1 > 

WRITE  (6,56)  (UUTIL (I> , 1=1, NUNIT) 

56  FORMA  T (/ , 2 0H  PERC.  OF  TIME  SHOP  IS  UT IL . , 5X, 10 Fl 0 . 1) 

DO  20  1*1, NUNIT 
T  M  HU  (  I  >  *  0  • 

IF ( IE  AU ( 3 , 1 ) .EQ.l)TMHU(I) =  HUS  W ( I) *NPRR3 (CLASS) 

20  IF (IEAU(3,I) .NE.l .AN0.IEAU(2, I) .EQ.i ) TMHU ( I ) *HUSW ( I) *NPRR2 (CLASS) 
WRITE (6,55) (TMHU (I) ,1=1, NUNIT) 

55  FORMA  T ( / , 16H  TOTAL  MAN  HOURS , 17X , 10F1 0 . 1) 

DO  21  1=1, NUNIT 

FNPR=TMHU (I) / (GTIME/24.*8. ) 

NPRU ( I ) =F  NPR 
FNPR1=FNPR-NPRU(I) 

IF(FNPR1.NE.0.)NPRU(I)=NPRU(I)+1 

21  CONTINUE 

WRITE  (6,12)  (NPRU ( I) ,1  =  1, NUNIT) 

12  FORMA  T ( / , 23H  TOTAL  °ERSONS  RE QUIREO , 1 0 X , 1 0 1 1 0 ) 

WRITE (6,37) 

37  FORMA  T (  27H  (BASEO  ON  TOTAL  MAN  HOURS),/) 

GO  58  1=1, NUNIT 

58  IF (UUTIL (I) .GT..6667) WRITE (6, 59) I 

59  FORMA  T ( 51 H  NOTE-ADDITIONAL  PERSONNEL  ARE  REQUIRED  AT  UNIT  NO., 13) 
RETURN 

END 
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6.20  SUBROUTINE  RITE 


ENTRY  RITERQ - 

Abstract: 

This  entry  prints  out  the  contents  of  the  arrays  which  contain  information  about  requests  for 
replacement  items  (NTRQST,  NURQST,  TIRQST). 

ENTRY  RITESQ - 

Abstract: 

This  entry  prints  out  the  contents  of  the  arrays  which  contain  information  about  the  seabase  queue 
afloat  (ISQ,  TISQ,  NPISQ,  NESQ). 

ENTRY  RITSQA - 

Abstract: 

This  entry  prints  out  the  contents  of  the  arrays  which  contain  information  about  the  seabase  queue 
ashore  (ISQA,  TISQA,  NPISQA,  NESQA). 

ENTRY  RITCTQ - 

Abstract: 

This  entry  prints  out  the  contents  of  the  arrays  which  contain  information  about  the  CT  queue 
(ICTQ,  NUICTQ,  TICTQ,  NECTQ). 
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SUBROUTINE  RITE 

COMMON/N3/INVU5J  )  ,  NE I  {  33 . 10)  .  NFIt 150  >  ♦  NL  1ST  I1B)  »  NR*  NT  RQST  (200  > . 

1  NURQST (2  G u  ) , T IRQST (2301  , TYPENO  <30*101 , TAMNO(150 ) 
COMMON/N5/ICTQ(20')I ,  I SQ  <  2  (1 0  ) ,  I SQA  (2 30  )  ,  ISS  ( 1 0 >  , I UQ  ( 20  3  ,10 )  ,N IC TQ, 

1  NICTS,NISQ,NISQA,NIUQ<10> ,NIUS(10) , NP ISO ( 2 JO ) ♦ NPISQA  (2Qu)  , 

1  NUI CTQI2C 3 )«TICTQ(2C0).TISQ(203),TISQAI230).TIUQ (200*10) 

1  ,NES0(2J J) ,NESQA (230  > ,NEUQ (234 , 10 > , NECTQ (20 0 > , I CTS ( 1 0  » 

COM MO N/N6/LIMDIM, LIMIT, T1,T2,IOPT1,IOPT2»IOPT3 
ENTRY  RITERQ 
IF(IOPT2.EQ.0)GOTO13 
OO  1  1=1, NR 

1  WRITE (6,21 I,NTPOST(I) , NURQST ( I ) , T IROST ( I > 

2  FORMA T ( 10 X, 17H  UNIT  REQUEST  NO. , I 3.19H--END  ITEM  TYPE  NO. ,12, 

1  2 1H  IS  REQUESTED  BY  UNIT, 12, 3H  AT,F6.1,5H  HRS.) 

RETURN 

10  WRITE  (6,2>NR,NTRQST(NR),NURQST(NR),TIRQST(NR» 

RETURN 

ENTRY  RITESQ 
IF(IOPT2.EQ.O)GOTOH 
00  3  1=1, NISQ 

3  WRITE (6,4>I3Q(I),I,TISQ(I> , NP ISQ ( I ) , NESQ ( I » 

4  FORMAT  (5X  ,14H  END  ITEM  TYPE.I2.43H  AOOEO  TO  SEABASEO  QUEUE  AFLOAT 

1  IN  LOCATION, 13, 3H  AT,F6.1,20H  HRS  WITH  A  PRIOR  OF.I2.14H.  MAINT  AT 
1  ECH, 12 , 12H  IS  REQUIRED! 

RETURN 

11  I=NISO 

WRITE (6,4) ISQ  < I > , I, T ISQ (II , NPISQ ( I » , NESQ ( I ) 

RETURN 

ENTRY  RITSQA 
IF(I0PT2.EQ.3)G0T012 
00  7  1=1 , NISQA 

7  WRITE (6,9) ISQA (I) , I , T ISQA < I > , NPISQA ( I ) , NESQA  (I) 

9  FORMA  T ( 5X , 1 4H  END  ITEM  TYPE,I2,43H  AOOEO  TO  SEABASEO  QUEUE  ASHORE 

1IN  LOCATION, 13, 3H  AT.F6.1.20H  HRS  WITH  A  PRIOR  0F,I2,14H.  MAINT  AT 
1  ECH ,  12 , 1 2H  IS  REQUIRED) 

RETURN 

12  I  =  NIS  Q A 

WRITE  (6, 9) ISQA (I)  , I , T ISQA ( I ) , NPISQA ( I ) , NESQA (I ) 

RETURN 

ENTRY  RITCTQ 
IF(I0PT2.EQ.G)G0T08 
DO  5  1= 1 , NICT Q 

5  WRITE (6,6) ICTQ(I) , NUICTQ ( I ) , I , T IC TQ( I ) , NECTQ ( I > 

6  FORMA T (5 X ,  17H  END  ITEM  TYPE  NO,I2,13H  FROM  UNIT  N0,I2,29H  ENTEREO 
1CT  QUEUE  IN  LOCATION, 13, 3H  AT.F6.1.28H  HRS.  MAINTENANCE  AT  ECHELON 
1.I2.12H  IS  REQUIRED) 

RETURN 

8  I  =  NIC  TQ 

WRITE (6,6) ICTQ(I)  ,NUICTQ( I) ,1 ,TICTQ(I) .NECTQ  (I  ) 

RETURN 

END 
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6.21  SUBROUTINE  RITEUQ(WORD) 


Parameter  Used: 

WORD(2)  Unit  number  where  item  is  located 


Abstract: 

This  subroutine  prints  out  the  contents  of  the  arrays  (IUQ,  TIUQ,  and  NEUQ),  which  contain  infor¬ 
mation  about  the  queue  at  unit  WORD(2). 
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SUBROUTINE  RI TEUQ ( WORD) 

INTEGER  WORD ( 6) 

COMMON/N5/ICTQ(20C)  » I SQ ( 2  0  O  *  ISQA  ( 2  J  0  )  ,  ISS  ( 1 0  >  ,  I UQ  (20  0 . 1 C  )  ,  NICTQ , 

1  NICTS.NISQ,  NISQA.NIUQUO)  ,NIUS(10)  ,NPISQ(200  ) .NPISQA  (200, 

1  NUICTQ(23  0) , TIC  TO (2  00) , TISQ (20  0  ) ,TISQA(20  0  > ,TIUQ(200  ,10  ) 

1  , NESQ(2J3) ,NESQA (20  0  ) , NE UO (  2 0 0 , 1 0  I ,NECTQ(2  00) ,ICTS(10  » 
C0MW0N/N6/LIM0IM, LIMIT , T 1 ,T  2 , IOPT l,IOPT2,IOPT3 
IF(IOPT2.EQ.0)GOTO3 
J*  NIUQ ( WORO ( 2 ) ) 

DO  1  1*1,  J 

1  WRITE (6,2) IUQII .WORD (2)) .WORD (2) , I »T IUQ ( I » WORD (2) ) , NE UQ( I , WORO (2 ) I 

2  FORMAT ( 5X , 1 7H  END  ITEM  TYPE  NO,I2,16H  ENTEREO  UNIT  NOI3.18H  QUEUE 
UN  LOCATION, 12, 3H  AT,F6.1,28H  HRS.  MAINTENANCE  AT  ECHELON, 12 , 1 2H  I 
IS  REQUIRED) 

RETURN 

3  I=NIUQ(W0RD(2)  ) 

WRITE (6,2) IUQ (I, WORD (2) ) .WORD (2) , I , T I UQ ( I , WORO (2 ) ) ,NEUQ ( I , WORD (2) ) 

RETURN 

END 


7.0  DETAILS  OF  THE  SCHEDULING  PROCESS 


The  following  pages  describe  the  steps  taken  to  schedule  the  failure  (Fail  Event)  or  repair  (Complete 
Service  Event)  of  an  item,  or  the  arrival  (Arrival  Event)  of  an  item  or  CT 

7.1  Fail  Event 

The  time  (clock  time)  at  which  an  item  is  to  fail  is  scheduled  by  storing  a  Fail  Event  on  the  event 
list.  This  failure  time  is  computed  by  adding  the  following  two  intervals  of  time  to  the  current  clock  time: 

•  TRANSP,  the  interval  of  time  required  for  transportation: 

TRANSP=T1  The  item  is  being  transported  from  the  seabase  to  a  unit  ashore 
TRANSP=0.0  The  item  is  already  at  a  unit  ashore 

•  TTF,  the  interval  of  time  the  item  is  to  continue  operating  before  failing  (TTF  is 
computed  by  Subroutine  GENTTF). 

The  information  required  at  the  time  of  failure  is  stored  in  the  following  variables: 

WORD(l)  Type  of  item  to  fail 
W0RD(2)  Unit  number  where  item  to  fail  is  located 
The  Fail  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(IFAIL,TIME+TRANSP+TTF,WORD,FTIME). 

7.2  Arrival  Event 

The  time  (clock  time)  at  which  an  item  or  CT  is  to  arrive  at  its  destination  is  scheduled  by  storing  an 
Arrival  Event  on  the  event  list.  This  arrival  time  depends  on  which  one  of  the  following  arrivals  is  scheduled: 

•  Arrival  of  failed  item  at  seabase 

•  Arrival  of  failed  item  at  seabase  queue  ashore 

•  Arrival  of  nondedicated  CT  at  seabase 

•  Arrival  of  dedicated  CT  at  a  unit  ashore 

7.2.1  Arrival  of  Failed  Item  at  Seabase 

The  time  (clock  time)  a  failed  item  is  to  arrive  at  a  seabase  is  computed  by  adding  T1  (the  interval  of 
time  required  to  transport  the  failed  item  from  a  point  ashore  to  the  seabase)  to  the  current  clock  time.  The 
information  required  at  the  time  of  arrival  is  stored  in  the  following  variables: 

WORD(l)  Type  of  item  to  arrive 

WORD(2)  Priority  of  item  to  arrive 

WORD(5)  Echelon  level  required  for  repair 

WORD(6)  Seabase  arrival  indicated  (value  will  be  set  to  1) 

The  Arrival  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(IARRVL,TIME+T1  ,WORD,FTIME). 
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7.2.2  Arrival  of  Failed  Item  at  Seabase  Queue  Ashore 


The  time  (clock  time)  a  failed  item  is  to  arrive  at  the  seabase  queue  ashore  is  computed  by  adding  T2 
(the  interval  of  time  required  to  transport  the  failed  item  from  a  point  ashore  to  the  queue)  to  the  current 
clock  time.  The  information  required  at  the  time  of  arrival  is  stored  in  the  following  variables: 

WORD(l)  Type  of  item  to  arrive 

WORD(2)  Priority  of  item  to  arrive 

WORD(5)  Echelon  level  required  for  repair 

WORD(6)  Queue  ashore  arrival  indicated  (value  will  be  set  to  2) 

The  Arrival  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(IARRVL,TIME+T2,WORD,FTIME). 

7.2.3  Arrival  of  a  Nondedicated  CT  at  Seabase 

The  time  (clock  time)  at  which  a  nondedicated  CT  is  to  arrive  at  the  seabase  is  computed  by  adding 
T1  (the  interval  of  time  required  to  transport  the  CT  from  the  shore  to  the  seabase)  to  the  current  clock 
time.  The  information  required  at  the  time  of  arrival  is  stored  in  the  following  variables: 

WORD(3)  Identification  of  the  CT 

WORD(6)  Seabase  arrival  of  CT  indicated  (value  will  be  set  to  3) 

The  Arrival  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(IARRVL,TIME+T1  ,WORD,FTIME). 

The  variable  which  records  the  total  amount  of  time  spent  in  transporting  CT’s  is  updated  to  include  the  time 
used  in  returning  the  CT  to  the  seabase  (TRTS=TRTS+T1). 

7.2.4  Arrival  of  a  Dedicated  CT  at  a  Unit  Ashore 

The  time  (clock  time)  at  which  a  dedicated  CT  is  to  arrive  at  a  unit  ashore  is  computed  by  adding  T2 
(the  interval  of  time  required  to  transport  the  CT  from  a  point  ashore  to  the  unit  ashore)  to  the  current  clock 
time.  The  information  required  at  the  time  of  arrival  is  stored  in  the  following  variables: 

WORD(3)  Identification  of  the  CT 

WORD(6)  Arrival  of  CT  at  the  indicated  unit  (value  will  be  set  to  4) 

The  Arrival  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(IARRVL,TIME+T2 ,WORD,FTIME). 

The  variable  which  records  the  total  amount  of  time  spent  in  transporting  CT’s  is  updated  to  include  the  time 
used  in  returning  the  CT  to  a  unit  (TRTS=TRTS+T2). 

7.3  Complete  Service  Event 

The  time  (clock  time)  at  which  repair  of  an  item  is  to  be  completed  is  scheduled  by  storing  a 
Complete  Service  Event  on  the  event  list.  This  complete  service  time  depends  on  the  location  of  the 
scheduled  repair: 
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•  Complete  service  at  the  seabase 

•  Complete  service  ashore  by  a  nondedicated  CT 

•  Complete  service  ashore  at  a  unit 

•  Complete  service  ashore  by  a  dedicated  CT 

7.3.1  Complete  Service  at  the  Seabase 

The  time  (clock  time)  at  which  repair  of  an  item  is  to  be  completed  at  the  seabase  is  computed  by 
adding  TTR  (the  interval  of  time  required  for  repair,  which  is  computed  by  Subroutine  GENTTR)  to  the 
current  clock  time.  The  information  required  at  the  time  repair  is  completed  is  stored  in  the  following 
variables: 

WORD(l)  Type  of  item  to  be  repaired 

WORD(3)  Space  item  will  occupy  during  repair 

WORD(6)  Location  of  repair  indicated  (value  will  be  set  to  1) 

The  Complete  Service  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(ICOMPS , TIM  E+TTR, WORD, FTIME). 

Variable  1SS(W0RD(3))  is  equated  to  variable  WORD(l)  to  indicate  that  space  WORD(3)  is  temporarily  in 
use.  The  variable  which  records  the  cumulative  total  of  items  repaired  at  the  seabase  (NIER(l))  is 
updated  (NIER(1  )=NIER(1  )+l).  To  record  the  time  when  the  repair  began,  the  variable  TSSBF(WORD(3))  is 
equated  to  the  current  clock  time. 

7.3.2  Complete  Service  Ashore  by  a  Nondedicated  CT 

The  time  (clock  time)  at  which  repair  of  an  item  is  to  be  completed  ashore  by  a  nondedicated  CT  is 
computed  by  adding  the  following  two  intervals  of  time  to  the  current  clock  time: 

•  TRANSP,  the  interval  of  time  required  to  transport  the  CT  to  the  item: 

TRANSP=T1  The  CT  is  being  transported  from  the  seabase 
TRANSP=T2  The  CT  is  being  transported  from  a  shore  point 

•  TTR,  the  interval  of  time  required  for  the  repair  of  the  item  (that  time  is 
computed  by  Subroutine  GENTTR). 

The  information  required  at  the  time  repair  is  completed  is  stored  in  the  following  variables: 

WORD(l)  Type  of  item  to  be  repaired 
WORD(2)  Unit  number  of  item  to  be  repaired 
WORD(3)  Identification  of  the  CT 

WORD(6)  Location  of  repair  indicated  (value  will  be  set  to  2) 

FTIME  Time  at  which  item  failed 

The  Complete  Service  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(ICOMPS,TIME+TRANSP+TTR, WORD, FTIME). 

Variable  1SS(W0RD(3))  is  equated  to  variable  (NOTYPE+1)  to  indicate 

•  that  space  WORD(3)  is  no  longer  available  for  use  since  the  maintenance 
personnel  were  removed  as  a  regular  CT  (if  WORD(3)  <NSS); 

•  that  a  phantom  CT  identified  by  parameter  WORD(3)  is  presently  occupied 
repairing  item  WORD(l)  (if  WORD(3)  >NSS). 
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If  the  CT  is  being  transported  from  the  seabase,  the  present  number  of  items  being  repaired  by  CT’s  is  updated 
(N1CTS=NICTS+I ).  The  variable  which  records  the  cumulative  total  of  items  repaired  by  CT’s  (N!ER(3))  is 
updated  (NIER(3)=NIER(3)+1).  To  record  the  time  when  the  repair  began,  the  variable  TCTBF(WORD(3)j  is 
equated  to  (TIME+TRANSP).  The  variable  which  records  the  total  amount  of  time  spent  in  transporting  CT’s 
is  updated  to  include  the  time  required  to  transport  the  CT  to  the  failed  item  (TRTS=TRTS+TRANSP). 

7.3.3  Complete  Service  Ashore  at  a  Unit 

The  time  (clock  time)  at  which  repair  of  an  item  is  to  be  completed  ashore  at  a  unit  is  computed  by 
adding  TTR  (the  interval  of  time  required  for  repair,  which  is  computed  by  Subroutine  GENTTR)  to  the 
current  clock  time.  The  information  required  at  the  time  repair  is  completed  is  stored  in  the  following 
variables: 

WORD(l)  Type  of  item  to  be  repaired 

WORD(2)  Unit  number  of  item  to  be  repaired 

WORD(6)  Location  of  repair  indicated  (value  will  be  set  to  3) 

FTIME  Time  at  which  item  failed 
The  Complete  Service  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(1C0MPS,TIME+TTR, WORD, FTIME). 

If  the  scheduled  repair  is  for  an  item  which  has  just  failed  (one  not  yet  in  a  queue),  the  total  number  of  items  cur¬ 
rently  in  repair  at  unit  WORD(2),  (NIUS(3+WORD(2)))  is  updated  (NIUS(3+WORD(2))=NIUS(3+WORD(2))+l). 
The  cumulative  total  of  items  repaired  at  unit  WORD(2)  (NIER(3+WORD(2)))  is  updated  (NIER(3+WORD(2 ))= 
NIER(3+WORD(2))+l).  To  indicate  the  time  when  repair  began,  the  variable  TUSBF(WORD(2))  is  equated  to 
the  current  clock  time.  (If  unit  WORD(2)  can  repair  more  than  one  end  item  at  any  time,  this  variable  is  invalid). 

7.3.4  Complete  Service  Ashore  by  a  Dedicated  CT 

The  time  (clock  time)  at  which  repair  of  an  item  is  to  be  completed  ashore  by  a  dedicated  CT  is 
computed  by  adding  the  following  two  intervals  of  time  to  the  current  clock  time: 

•  TRANSP,  the  interval  of  time  required  to  transport  the  CT  to  the  item: 

TRANSP=T1  The  CT  is  being  transported  from  the  seabase 
TRANSP=T2  The  CT  is  being  transported  from  a  shore  point 

•  TTR,  the  interval  of  time  required  for  the  repair  of  the  item  (TTR  is 
computed  by  Subroutine  GENTTR). 

The  information  required  at  the  time  repair  is  completed  is  stored  in  the  following  variables: 

WORD(l)  Type  of  item  to  be  repaired 
WORD(2)  Unit  number  of  item  to  be  repaired 
WORD(3)  Identification  of  the  CT 

WORD(6)  Location  of  repair  indicated  (value  will  be  set  to  4) 

FTIME  Time  at  which  item  failed 

The  Complete  Service  Event  is  stored  on  the  event  list  by  the  calling  function 
CALL  SNE(ICOMPS,TIME+TRANSP+TTR, WORD, FTIME). 
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Variable  ICTS(W0RD(3))  is  equated  to  variable  W0RD(1)  to  indicate  that  the  CT  identified  by  parameter 
WORD(3)  is  presently  occupied  repairing  item  WORD(l).  The  cumulative  total  of  items  repaired  by  CT’s 
(NIER(3))  is  updated  (NIER(3):=NIER(3)-M).  To  indicate  the  time  when  repair  began,  the  variable 
TCTBF(WORD(3))  is  equated  to  (TIME+TRANSP).  The  variable  which  records  the  total  amount  of  time 
spent  in  transporting  CT’s  is  updated  to  include  this  latest  transportation  (TRTS=TRTS+TRANSP). 

8.0  ADDING  ITEMS  TO  QUEUES 

This  section  describes  the  various  steps  required  to  add  items  to  the  appropriate  queues. 

•  To  the  Seabase  Queue  Afloat 

To  indicate  that  a  failed  item  is  being  added  to  the  seabase  queue  afloat,  the  variable  NISQ  which 
records  the  number  of  items  presently  in  the  queue  is  updated  (NISQ=NISQ+1).  If  this  number  exceeds  the 
queue  limit  (NISQ  > LIMDIM),  the  program  stops;  if  not,  two  comparisons  are  made  to  determine  where  in 
the  queue  the  failed  item  should  be  placed.  The  priority  of  the  failed  item  (WORD(2))  is  compared  with  the 
priorities  of  the  other  queue  entries  (i.e.,  the  array  NPISQ(i),  for  i=  1  through  NISQ-1)  and  the  time  at  which 
the  failed  item  is  added  to  the  repair  queue  (TIME)  is  compared  with  the  times  when  the  other  items  were 
placed  in  the  queue  (i.e.,  the  array  TISQ(i),  for  i=l  through  NISQ-1).  The  failed  item  is  placed  in  the  queue 
at  the  first  Location  i  where  I  <i  ^(NISQ-1)  which  satisfies  either  the  condition  that  WORD(2)  >NPISQ(i) 
or  the  condition  that  WORD(2)=NPISQ(i)  and  TIME  < TISQ(i),  If  neither  of  these  two  conditions  is 
satisfied,  the  failed  item  is  placed  in  Location  NISQ. 

The  failed  item  is  placed  in  the  designated  “x”  location  in  the  seabase  queue  afloat  by  storing  the 
data  into  the  arrays  as  follows: 

ISQ(x)=WORD(l )  Type  of  item  that  failed 
TISQ(x)=TIME  Time  at  which  item  enters  queue 

NPISQ(x)=WORD(2)  Priority  of  item  that  failed 
NESQ(x)=WORD(5)  Echelon  level  required  for  repair 

If  the  failed  item  is  added  to  an  empty  queue,  the  total  amount  of  time  that  the  queue  has  been 
empty  during  the  mission  (HQE(l))  is  updated  by  that  amount  of  time  which  extends  from  the  time  the  queue 
was  last  emptied  to  the  present  (HQE(1)=TIME-TQBE(1)+HQE(1)).  When  an  item  is  added  to  a  queue,  the 
cumulative  sum  of  the  items  added  to  the  queue  during  the  mission  (NENTER(l))  is  updated 
(NENTER(1)=NENTER(1)+1 ).  If  the  number  of  items  in  the  current  queue  (NISQ)  is  greater  than  the 
number  recorded  in  MAXQL(l)  (MAXQL(l)  records  the  longest  individual  queue  length  for  the  mission  thus 
far),  the  two  variables  are  equated. 

•  To  the  Seabase  Queue  Ashore 

To  indicate  that  a  failed  item  is  being  added  to  the  seabase  queue  ashore,  the  variable  NISQA  which 
records  the  number  of  items  presently  in  the  queue  is  updated  (NISQA=NISQA+1).  If  this  number  exceeds 
the  queue  limit  (NISQA  > LIMDIM),  the  program  stops;  if  not,  two  comparisons  are  made  to  determine  where 
in  the  queue  the  failed  item  should  be  placed.  The  priority  of  the  failed  item  (WORD(2))  is  compared  with  the 
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priorities  of  the  other  queue  entries  (i.e.,  the  array  NPISQA(i),  for  i=l  through  NISQA-1)  and  the  time  at 
which  the  failed  item  is  added  to  the  repair  queue  (TIME)  is  compared  with  the  times  when  the  other  items 
were  placed  in  the  queue  (i.e.,  the  array  TISQA(i),  for  i=l  through  NISQA-1).  The  failed  item  is  placed  in 
the  queue  at  the  first  Location  i  where  1  <  i<(NISQA-l)  which  satisfies  either  the  condition  that 
WORD(2)  >NPISQA(i)  or  the  condition  that  WORD(2)=NPISQA(i)  and  TIME<TISQA(i).  If  neither  of  these 
two  conditions  is  satisfied,  the  failed  item  is  placed  in  Location  NISQA. 

The  failed  item  is  placed  in  the  designated  “x”  location  in  the  seabase  queue  ashore  by  storing  the 
data  into  the  arrays  as  follows: 

ISQ A(x)=WORD(  1 )  Type  of  item  that  failed 

TISQA(x)=TIME  Time  at  which  item  enters  queue 

NPISQA(x)=WORD(2)  Priority  of  item  that  failed 
NESQA(x)=WORD(5)  Echelon  level  required  for  repair 

If  the  failed  item  is  added  to  an  empty  queue,  the  total  amount  of  time  that  the  queue  has  been 
empty  during  the  mission  (HQE(2))  is  updated  by  that  amount  of  time  which  extends  from  the  time  the 
queue  was  last  emptied  to  the  present  (HQE(2)=TIME-TQBE(2)+HQE(2)).  When  an  item  is  added  to  a  queue, 
the  cumulative  sum  of  items  queued  during  the  mission  (NENTER(2))  is  updated  (NENTER(2)=NENTER(2)+1). 
If  the  number  of  items  in  the  current  queue  (NISQA)  is  greater  than  the  number  recorded  in  MAXQL(2) 
(MAXQL(2)  records  the  longest  individual  queue  length  for  the  mission  thus  far),  the  two  variables  are  equated. 

•  To  the  CT  Queue 

To  indicate  that  a  failed  item  is  being  added  to  the  CT  queue,  the  variable  NICTQ  which  records  the 
number  of  items  presently  in  the  queue  is  updated  (NICTQ=NICTQ+1).  If  the  number  exceeds  the  queue 
limit  (NICTQ>LIMDIM),  the  program  stops;  if  not,  the  failed  item  is  placed  in  Location  NICTQ  of  the  CT 
queue  by  storing  the  data  into  the  arrays  as  follows: 

ICTQ(NICTQ)=WORD(l)  Type  of  item  that  failed 
TICTQ(NICTQ)=TIME  Time  at  which  item  enters  queue 

NUICTQ(NICTQ)=WORD(2)  Unit  number  of  item  that  failed 
NECTQ(NICTQ)=WORD(5)  Echelon  level  required  for  repair 

If  the  failed  item  is  added  to  an  empty  queue,  the  total  amount  of  time  that  the  queue  has  been 
empty  during  the  mission  (HQE(3))  is  updated  by  that  amount  of  time  which  extends  from  the  time  the 
queue  was  last  emptied  to  the  present  (HQE(3)=TIME-TQBE(3)+HQE(3)).  When  an  item  is  added  to  a  queue, 
the  cumulative  sum  of  items  queued  during  the  mission  (NENTER(3))  is  updated  (NENTER(3)=NENTER(3)+1). 
If  the  number  of  items  in  the  current  queue  (NICTQ)  is  greater  than  the  number  recorded  in  MAXQL(3) 
(MAXQL(3)  records  the  longest  individual  queue  length  for  the  mission  thus  far),  the  two  variables  are  equated. 

•  To  the  Unit  Queue 

To  indicate  that  a  failed  item  is  being  added  to  the  queue  at  the  ith  unit,  the  variable  NIUQ(i) 
which  records  the  number  of  items  presently  in  the  queue  is  updated  (NIUQ(i)-NIUQ(i)+l).  If  the  number 
exceeds  the  queue  limit  (NIUQ(i)>LIMDIM),  the  program  stops;  if  not,  the  failed  item  is  placed  in  Location 
NIUQ(i)  of  the  queue  by  storing  the  data  into  the  arrays  as  follows: 
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lUQ(NIUQ(i),i)=WORD( I )  Type  of  item  that  failed 
TIUQ(NIUQ(i),i)=TIME  Time  at  which  item  enters  queue 

NEUQ(NIUQ(i),i)=W0RD(5)  Echelon  level  required  for  repair 

If  the  failed  item  is  added  to  an  empty  queue,  the  total  amount  of  time  that  the  queue  has  been 
empty  during  the  mission  (HQE(3+i))  is  updated  by  that  amount  of  time  which  extends  from  the  time  the 
queue  was  last  emptied  to  the  present  (HQE(3+i)=TIME-TQBE(3+i)+HQE(3+i)).  When  an  item  is  added  to  a 
queue,  the  cumulative  sum  of  items  queued  during  the  mission  (NENTER(3+i))  is  updated 
(NENTER(3+i)=NENTER(3+i)+l).  If  the  number  of  items  in  the  current  queue  (NIUQ(3+i))  is  greater  than 
the  number  recorded  in  MAXQL(3+i)  (MAXQL(3+i)  records  the  longest  individual  queue  length  for  the  mission 
thus  far),  the  two  variables  are  equated. 

9.0  REMOVING  ITEMS  FROM  QUEUES 

This  Section  describes  the  various  steps  required  to  remove  items  from  the  different  queues. 

•  From  the  Seabase  Queue  Afloat 

When  a  maintenance  space  is  available  at  the  seabase,  the  item  in  Location  1  of  the  seabase  queue 
afloat  is  removed  and  a  complete  service  event  is  scheduled.  The  characteristics  of  this  item  (presently  stored 
in  the  queue  arrays)  will  be  stored  in  the  variables  WORD(l)  and  WORD(5)  so  that  the  complete  service  event 
may  be  stored  on  the  event  list. 

The  item  in  Location  1  of  the  queue  is  removed  by  storing  the  following  information  into  the 
variables  indicated: 

WORD(l  )=ISQ(1 )  Type  of  item  in  queue 
WORD(5)=NESQ(l)  Echelon  level  required  for  repair 
(The  characteristics  of  the  item  stored  in  variables  TISQ(l)  and  NPISQ(l)  are  not  required  for  the  complete 
service  event.) 

To  indicate  that  a  failed  item  is  being  removed  from  the  seabase  queue  afloat,  the  variable  NISQ 
which  records  the  number  of  items  presently  in  the  queue  is  decremented  (NISQ=NISQ-1).  The  variable 
which  records  the  total  amount  of  time  that  items  wait  in  the  queue  (HW1Q(1))  is  updated  by  the  interval 
which  extends  from  the  time  the  item  just  removed  was  placed  in  the  queue  to  the  present 
(HWIQ(1)=TIME-TISQ(1)+HWIQ(1)).  If  the  queue  is  now  empty  (NISQ=0)  the  variable  which  records  the 
time  the  last  item  was  removed  from  the  queue  (TQBE(l))  is  equated  to  the  present  (TQBE(1)=TIME). 

If  there  are  still  items  in  the  queue  (NISQ^O),  the  contents  of  the  queue  arrays  (i.e.,  arrays  ISQ, 

NESQ,  NPISQ,  TISQ)  in  locations  2  through  (NISQ+1)  are  advanced  one  location. 

•  From  the  Seabase  Queue  Ashore 

When  space  is  available  in  the  seabase  queue  afloat,  the  item  in  Location  1  of  the  seabase  queue  ashore 
is  removed.  An  arrival  event  is  scheduled  and  the  item  is  transported  to  the  seabase.  The  characteristics  of 
this  item  (presently  stored  in  the  queue  arrays)  will  be  stored  in  the  variables  (WORD(l),  WORD(2),  and 
WORD(5)  so  that  the  arrival  event  may  be  stored  on  the  event  list. 
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The  item  in  Location  1  of  the  queue  is  removed  by  storing  the  following  information  into  the 
variables  indicated: 

WORD(l)=ISQA(l)  Type  of  item  in  queue 
WORD(2)=NPISQA(l)  Priority  of  item  in  queue 
WORD(5)=NESQA(l)  Echelon  level  required  for  repair 
(The  characteristic  of  the  item  stored  in  variable  TISQA(l)  is  not  required  for  the  arrival  event.) 

To  indicate  that  a  failed  item  is  being  removed  from  the  seabase  queue  ashore,  the  variable  NISQA 
which  records  the  number  of  items  presently  in  the  queue  is  decremented  (NISQA=NISQA-1).  The  variable 
which  records  the  total  amount  of  time  that  items  wait  in  the  queue  (HWIQ(2))  is  updated  by  the  interval 
which  extends  from  the  time  the  item  just  removed  was  placed  in  the  queue  to  the  present 
(HWIQ(2)=TIME-TISQA(1)+HWIQ(2)).  If  the  queue  is  now  empty  (NISQA=0)  the  variable  which  records  the 
time  the  last  item  was  removed  from  the  queue  (TQBE(2))  is  equated  to  the  present  (TQBE(2)=TIME). 

If  there  are  still  items  in  the  queue  (NISQA^O),  the  contents  of  the  queue  arrays  (i.e.,  arrays  ISQA, 
NESQA,  NPISQA,  TISQA)  in  locations  2  through  (NISQA+1)  are  advanced  one  location. 

•  From  the  CT  Queue 


When  a  CT  is  available,  the  item  in  Location  1  of  the  CT  queue  is  removed  and  a  complete  service 
event  is  scheduled.  The  characteristics  of  this  item  (presently  stored  in  the  queue  arrays)  will  be  stored  in  the 
variables  WORD(l),  WORD(2),  WORD(5),  and  FTIME  so  that  the  complete  service  event  may  be  stored  on 


the  event  list. 

The  item  in  Location  1  of  the  queue  is  removed  by  storing  the  following  information  into  the 
variables  indicated: 


WORD(l  )=ICTQ(1 ) 
WORD(2)=NUICTQ(l) 
WORD(5)=NECTQ(l) 
FTIME=TICTQ(1) 


Type  of  item  in  queue 
Unit  of  item  in  queue 
Echelon  level  required  for  repair 
Time  at  which  item  failed 


To  indicate  that  a  failed  item  is  being  removed  from  the  CT  queue,  the  variable  NICTQ  which  records 


the  number  of  items  presently  in  the  queue  is  decremented  (NICTQ=NICTQ-1).  The  variable  which  records 
the  total  amount  of  time  that  items  wait  in  the  queue  (HWIQ(3))  is  updated  by  the  interval  which  extends 


from  the  time  the  item  just  removed  was  placed  in  the  queue  to  the  present 

(HWIQ(3):=TIME-TICTQ(1)+HWIQ(3)).  If  the  queue  is  now  empty  (NICTQ=0),  the  variable  which  records 
the  time  the  last  item  was  removed  from  the  queue  (TQBE(3))  is  equated  to  the  present  (TQBE(3)=TIME). 

If  there  are  still  items  in  the  queue  (NICTQ^O),  the  contents  of  the  queue  arrays  (i.e.,  ICTQ, 
NUICTQ,  NECTQ,  TICTQ)  in  locations  2  through  (NICTQ+1)  are  advanced  one  location. 

•  From  the  Unit  Queue 


When  a  maintenance  resource  is  available  at  a  unit,  the  item  in  Location  1  of  the  unit  queue  is 
removed  and  a  complete  service  event  is  scheduled.  The  characteristics  of  this  item  (presently  stored  in  the 
queue  arrays)  will  be  stored  in  the  variables  WORD(l),  WORD(5),  and  FTIME  so  that  the  complete  service 
event  may  be  stored  on  the  event  list. 


i 
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The  item  in  Location  1  of  the  queue  at  the  ith  unit  is  removed  by  storing  the  following  information 
into  the  variables  indicated: 

WORD(l  )=IUQ(  1  ,i)  Type  of  item  in  queue 
WORD(5)=NEUQ(  1  ,i)  Echelon  level  required  for  repair 
FTiME=TIUQ(l  ,i)  Time  at  which  item  failed 

To  indicate  that  an  item  is  being  removed  from  the  queue  at  the  ith  unit,  the  variable  NIUQ(i)  which 
records  the  number  of  items  presently  in  the  queue  is  decremented  (NIUQ(i)=NIUQ(i)- 1 ).  The  variable  which 
records  the  total  amount  of  time  that  items  wait  in  the  queue  (HWIQ(3+i))  is  updated  by  the  interval  which 
extends  from  the  time  the  item  just  removed  was  placed  in  the  queue  to  the  present 

(HWIQ(3+i)=TIME-TIUQ(  I  ,i)+HWIQ(3+i)).  If  the  queue  is  now  empty  (NIUQ(i)=4))  the  variable  which  records 
the  time  the  last  item  was  removed  from  the  queue  (TQBE(3+i))  is  equated  to  the  present  (TQBE(3+i)=TlME). 

If  there  are  still  items  in  the  queue  (NIUQ(i)fO),  the  contents  of  the  queue  arrays  (i.e.,  IUQ,  NEUQ, 
T1UQ)  in  locations  2  through  (NIUQ(i)-H)  are  advanced  one  location. 

10.0  EXAMPLE  OF  PROGRAM  OUTPUT 

An  example  of  the  program  output  for  a  given  set  of  data  is  detailed  here;  the  listing  of  the  program 
output  is  included  following  this  discussion. 

In  this  example,  we  dealt  with  items  in  the  Motor  Transport  class;  the  output  presented  is  appropriate 
to  that  class.  When  other  classes  are  involved,  the  output  will  vary  accordingly.  Information  of  a  general 
nature  is  found  on  pages  1 12  through  1 14  of  the  program  output  listing;  information  strictly  concerned  with  the 
individual  classes  follows. 

The  information  of  a  general  nature  is  organized  in  the  following  tables: 

•  Total  Number  of  Persons  Required  to  Repair  Item 

•  Decrease  in  Seabase  Repair  Capability  as  CT’s  Depart  (For  Nondedicated  CT’s  only) 

•  Mission  Characteristics 

•  Repair  Intervals  (Mean  Time  to  Repair)  in  Hours 

•  Percentage  of  Items  that  Fail  Requiring  the  Various  Echelons  of  Repair 

•  Percentage  of  Items  Repaired  by  CT’s  Requiring  the  Various  Echelons  of  Repair 

•  Transportation  Times 

The  information  for  these  tables  is  read  in  and  printed  out  in  table  form  by  Subroutine  TITLE. 

The  information  following  on  the  next  pages  1  15  through  1  16  of  the  program  output  listing  is  strictly 
concerned  with  the  Motor  Transport  class.  The  information  on  the  input  data  for  the  Motor  Transport  class 
is  organized  under  the  following  tables: 

•  Personnel  and  Seabase  Shop  Characteristics 

•  Repair  Capability  of  Units  Ashore 

•  MAU  Configuration 

The  information  for  the  first  two  tables  and  part  of  the  third  table  is  read  in  by  Subroutine  INPUT  (part  of 
the  information  for  the  third  table  is  read  in  by  Subroutine  RETRIEV).  The  information  for  these  tables  is 
printed  out  in  table  form  by  Subroutine  INPUT  before  simulation  begins.  The  table  “Personnel  and  Seabase 
Shop  Characteristics”  (page  1  15)  includes  the  following  information: 
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•  Total  Number  of  Contact  Teams  Available  (NCTS) 

•  Seabase  Repair  Capacity  (NSS)  -  the  number  of  repair  spaces  in  the  maintenance  shop 
available  for  the  repair  of  items 

•  Number  of  Items  Allowed  in  Seabase  Queue  Afloat  (LIMIT)  -  the  maximum  number 
of  items  allowed  in  the  seabase  queue  afloat  simultaneously 

•  Total  number  of  Repair  Personnel  Required  at  Seabase  -  computed  as  a  function  of  the 
information  from  the  table  “Total  Number  of  Persons  Required  to  Repair  Item/’  the 
highest  echelon  level  of  repair  available  at  the  seabase,  and  the  seabase  repair  capacity. 

To  determine  how  many  repair  personnel  are  needed  for  two  8 -hour  shifts,  the  number 
indicated  in  the  table  was  multiplied  by  two;  if  dedicated  CT’s  are  specified,  the  number 
indicated  is  incremented  by  NCTS 

•  Total  Number  of  Repair  Personnel  Required  at  Units  -  computed  as  a  function  of  the 
information  from  the  table  “Total  Number  of  Persons  Required  to  Repair  Item,”  the 
highest  echelon  level  of  repair  available  at  each  unit,  and  the  unit  repair  capacity;  and 
summed  for  all  the  units  in  the  Landing  Force.  To  determine  how  many  repair  personnel 
are  needed  for  two  8 -hour  shifts,  the  number  indicated  in  the  table  was  multiplied  by 
two 

•  Total  Number  of  Personnel  Required  for  MAU  Repair  -  includes  both  seabase  and  unit 
repair  personnel  required 

The  table  “Repair  Capability  of  Units  Ashore”  (page  1 15)  includes  the  units  by  their  identification 
numbers  and  by  their  names,  and  gives  the  unit  repair  capacity  and  the  repair  echelon  level  available  at  each 
unit.  In  this  example,  the  Landing  Force  consists  of  nine  units.  If  the  ith  unit  does  not  have  a  2nd  -  or  a  3rd  - 
echelon  maintenance  capability  (if  IEAU(2,i)=0  and  IEAU(3,i)=0),  the  unit  repair  capacity  is  zero.  If  the  ith 
unit  has  a  2nd-echelon  maintenance  capability  but  not  3rd  (if  IEAU(2,i)=l  and  IEAU(3,i)=0),  the  unit  repair 
capacity  equals  NUS,  and  2ND  is  entered  under  the  column  heading  “Echelon  Available.”  If  the  ith  unit  has 
both  a  2nd-  and  a  3rd-echelon  maintenance  capability  (IEAU(2,i)=l)  and  IEAU(3,i)=l ),  the  unit  repair 
capacity  equals  NUS  and  2ND  and  3RD  are  entered  under  the  column  heading  “Echelon  Available.” 

The  information  for  the  table  “MAU  Configuration”  (page  115)  defines  the  items  in  the  Landing  Force 
by  listing  the  items  by  their  TAM  numbers  (these  TAM  numbers  are  listed  in  alphanumeric  order,  the  first 
listed  is  type  1,  the  ith  is  type  i),  and  gives  the  following  information  for  each  item  in  the  Landing  Force: 

•  Nomenclature 

•  Total  number  of  items  at  the  units  ashore  (end  items)  and  total  number  of  float  items 

•  Mean  Time  Between  Failure  (MTBF) 

•  Utilization  Factor 

•  Square 

•  Cube 

•  Unit  Packaging 

•  Embark  Information 

The  information  in  the  output  data  for  the  Motor  Transport  class  is  organized  under  the  following 

tables: 


109 


•  Tool  Sets,  Kits,  and  Special  Equipment  Required 

•  Operating  Data 

•  Discard  Information 

•  Characteristics  of  Queues 

•  Shop  and  Personnel  Statistics 

The  information  for  the  table  “Tool  Sets,  Kits,  and  Special  Equipment  Required”  (page  1  I  6)  is 
computed  and  printed  out  in  table  form  by  Subroutines  TSEQ3  and  TESTEQ. 

The  information  for  the  table  “Operating  Data”  indicates  how  the  items  are  distributed  at  the  units 
and  provides  statistics  concerning  the  Downtime  Hours,  Average  Downtime  (DT)  Hours  Per  Failure,  and  the 
Availability  for  each  of  the  items  in  the  units.  These  statistics  are  calculated  during  the  simulation  and  are 
printed  out  in  table  form  by  Subroutine  OUTPUT  pages  1 1 7  and  118.  The  Downtime  Hours  indicate  how  long 
the  item  is  non-operational  at  the  unit.  The  average  downtime  hours  per  failure  is  a  function  of  the  total 
downtime  hours  and  the  number  of  times  the  item  fails  during  the  simulation.  The  Availability  is  a  function 
of  the  downtime  hours,  the  number  of  items  in  the  unit,  and  the  mission  duration;  it  is  defined  as  the  fraction 
of  the  mission  duration  that  a  given  item  is  in  operation. 

The  information  for  the  table  “Discard  Information”  (page  119)  provides  statistics  concerning  how 
many  items  were  discarded  during  the  simulation  and  how  many  requests  for  float  items  were  still  unfilled  at 
the  completion  of  the  mission.  These  statistics  are  calculated  during  the  simulation  and  are  printed  out  in 
table  form  by  Subroutine  OUTPUT. 

The  information  for  the  table  “Characteristics  of  Queues”  (page  1 19)  includes  the  following  for  items 
in  the  seabase  queue  afloat,  the  seabase  queue  ashore,  the  CT  queue,  and  the  queue  at  each  of  the  units: 

•  Number  of  Items  Entering  Repair 

•  Number  of  Items  Entering  Queue 

•  Average  Number  of  Items  in  Queue 

•  Maximum  Number  of  Items  in  Queue 

•  Percentage  of  Time  Queue  is  Occupied 

•  Average  Time,  in  hours,  Items  Wait  in  Queue 

This  information  is  calculated  during  the  simulation  and  printed  out  in  table  form  by  Subroutine  OUTPUT. 

The  tables  located  under  the  heading  “Shop  and  Personnel  Statistics”  (page  120)  provide  information 
for  the  repair  locations  at  the  seabase,  ashore  for  CT  repair,  and  at  the  units.  The  following  information  is 
provided  for  seabase  repair: 

•  Total  Shop  Hours  Spent  in  Repair 

•  Percentage  of  Time  Shop  is  Utilized 

•  Total  Man  Hours  —  computed  as  a  function  of  the  total  shop  hours  spent  in  repair, 
and  the  information  from  the  table  “Total  Number  of  Persons  Required  to  Repair 
Item.”  If  nondedicated  CT’s  are  specified,  then  the  number  indicated  in  the  table 
also  includes  the  total  hours  spent  in  repair  by  CT’s  and  total  hours  spent  in  transport 

•  Total  Personnel  Required  —  Based  on  Total  Man  Hours 
The  following  information  is  provided  for  repair  ashore  by  CT’s: 

•  Total  Hours  Spent  in  Repair 

•  Average  Hours  Spent  in  Repair 

•  Total  Hours  Spent  in  Transport 
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•  Average  Hours  Spent  in  Transport 

•  Percentage  of  Time  Spent  in  Transport 

•  Percentage  of  Time  CT  is  Utilized 
The  following  information  is  provided  for  repair  at  the  units: 

•  Total  Shop  Hours  Spent  in  Repair 

•  Percentage  of  Time  Shop  is  Utilized 

•  Total  Man  Hours:  computed  as  a  function  of  the  total  shop  hours  spent  in  repair, 
and  the  information  from  the  table  “Total  Number  of  Persons  Required  to  Repair 
Item” 

•  Total  Personnel  Required:  Based  on  Total  Man  Hours 

The  statistics  for  these  tables  are  calculated  during  the  simulation  and  are  printed  out  in  table  form  by 
Subroutine  OUTPUT. 
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THE  MODEL  SIMULATES  OPERATION  AT  THE  MARINE  AMPHIBIOUS  UNIT  (MAU)  LEVEL 
THE  END  ITEM  CONFIGURATION  IS  REPRESENTATIVE  OF  34TH  MAU 


MAINTENANCE  SPECIALIST  PERSONNEL  DATA 


TOTAL  NUMBER  OF  PERSONS  REQUIREO  TO  REPAIR  ITEM 


ECHELON 

2 

3 

4 

COMM/ELEC 

1 

1 

1 

ENGINEER 

1 

2 

2 

MOTOR  TRANSPORT 

1 

2 

2 

ORDNANCE 

1 

1 

2 

OECREASE  IN  SEABASE  REPAIR  CAPABILITY  AS  C.T.#S 
NOTE  -  CAf>ABILlTY*NUM9ER  OF  ITEMS  CAN  REPAIR  AT 

DEPART 
ONE  T I 

(FOR 

ME 

NON 

-DEDICATED 

TOTAL  C.T.'S  A3SENT  FROM  SEABASE 
COMM/ELEC 
ENGINEER 
MOTOR  TRANSPORT 
ORDNANCE 


12  3  4  5 
0  0  12  2 
0  112  3 
0  0  12  3 
0  112  3 


T.  ONLY) 
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NUMBER  OF  SIMULATED  MISSION  RUNS 
MISSION  DURATION  IN  HOURS  240 
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MOTOR  TRANSPORT  CLASS 
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NOTE-SS  0EN0TES  ITEMS  REQUIRING  SQUARE  STOWAGE 


MOTOR  TRANSPORT  CLASS 
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operating  data 


*** 

UNIT  1  *** 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

downtime  hours 

AVERAGE  DT 

HOURS 

PER 

FAILURE 

AVAILABILITY 

DO  840 

1 

.  0 

0.0 

.9998 

0 1 100 

2 

4.4 

4.4 

.9908 

UNIT  1  CHARACTERISTICS- 

4.5 

2.2 

.9938 

* 

UNIT  2  *** 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

DOWNTIME  HOURS 

AVERAGE  DT 

HOURS 

PER 

FAILURE 

AVAILABILITY 

00  040 

1 

.0 

0.0 

.9999 

01100 

2 

6.0 

6.0 

.9874 

UNIT  2  CHARACTERISTICS- 

6.1 

3.0 

.9916 

♦  *  * 

UNIT  3  *** 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

DOWNTIME  HOURS 

AVERAGE  DT 

HOURS 

PER 

FAILURE 

A  VAIL  A8IL IT Y 

03  840 

1 

0.0 

0.0 

1.0000 

QUCO 

2 

5.2 

5.2 

.9891 

UNIT  3  CHARACTERISTICS* 

5.2 

2.6 

.9927 

**  * 

UNIT  4 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

DOWNTIME  HOURS 

AVERAGE  OT 

HOURS 

PER 

FAILURE 

availability 

0  0  84C 

1 

0.0 

0.0 

1.0CG0 

01103 

2 

1.5 

1.5 

.9969 

UNIT  4  CHARACTERISTICS- 

1.5 

.  6 

.9979 

**  * 

UNIT  5  *** 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

OOWNTIME  HOURS 

AVERAGE  DT 

HOURS 

PER 

FAILURE 

availability 

DO  840 

4 

•  0 

0  .0 

1.0003 

01100 

18 

29.2 

2.9 

.9932 

01160 

4 

4.8 

2.4 

.9950 

UNIT  5  CHARACTERISTICS- 

34.0 

1.8 

.9945 

*#• 

UNIT  6  ♦♦♦ 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

OOWNTIME  HOURS 

AVERAGE  OT 

HOURS  PER  FAILURE 

AVAILABILITY 

00  840 

1 

0.0 

0.0 

1.0000 

01030 

6 

19.7 

4.9 

.9863 

01160 

1 

1.8 

1.8 

.9923 

i* 

UNIT  6  CHARACTERISTICS- 

21.5 

2.3 

.9888 

M  ♦ 

UNIT  7 

TAM  NO. 
E  1  85  0 

NO.  END  ITEMS  IN  UNIT 

7 

DOWNTIME  HOURS 
36.0 

AVERAGE  DT 

HOURS  PER  FAILURE 
2.6 

AVAILABILITY 

.9786 

UNIT  7  CHARACTERISTICS- 

36.0 

2.6 

.9786 

**  * 

UNIT  8  *** 

TAM  NO. 

NO.  END  ITEMS  IN  UNIT 

DOWNTIME  HOURS 

AVERAGE  DT 

HOURS  PER  FAILURE 

AVAILABILITY 

E  0  830 

10 

214.9 

7.7 

.9105 

UNIT  8  CHARACTERIST ICS- 

214.9 

7.7 

.9105 

UNIT  9  *** 

TAM  NO. 

NO.  ENO  ITEMS  IN  UNIT 

OOWNTIME  HOURS 

AVERAGE  DT 

HOURS  PER  FAILURE 

AVA  ILABILITY 

00  840 

4 

.  0 

0.0 

1.0000 

DO  860 

5 

.  5 

0.0 

.9996 

DO  880 

6 

.  3 

c.o 

.9998 

DO  890 

1 

20.2 

10  .1 

.9159 

' 01 G10 

7 

46. 3 

11.6 

.9725 

01030 

n 

32.  1 

4.0 

.9866 

OHIO 

2 

8.2 

8.2 

.9828 

r 

01 160 

7 

7.1 

1.8 

.9958 

UNIT  9  CHARACTERISTICS- 

114.7 

4.5 

.9886 

MAU  CHARACTERISTICS 

CUMMULATIVE  OT  HOURS=  438*5003 
AVERAGE  DT  HOURS  PER  F A ILURE=  5.3242 
AVERAGE  AVA ILAB ILIT Y=  .9826 
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PEPC.  OF  TIME  QUEUE  OCCUPIEO 


TOTAL  SHOP  HOURS  SPENT  IN  REPAIR  11*7.1386 
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APPENDIX  A 

ITEM  IDENTIFICATION 


Unique  all -integer  type  numbers  are  assigned  to  the  various  items  in  the  MAU  according  to  the 
particular  TAM  number  (which  consists  of  five  alphanumeric  characters  -  one  letter  followed  by  four  integers). 
There  are  a  total  of  NOTYPE  different  item  types  in  a  Landing  Force;  each  different  item  type  has  a  different 
TAM  number.  The  parameter  TAMNO(i)  is  defined  as  the  ith  TAM  number  in  the  Landing  Force,  or  as  the 
TAM  number  for  item  type  i. 

Items  are  identified  by  their  type  numbers  during  a  simulated  mission;  items  are  identified  by  their 
TAM  numbers  on  the  input  cards  and  on  the  program  output. 

Arrays  NLIST,  TYPENO  and  NEI  are  designated  within  the  program  to  identify  the  item  types  at 
each  unit.  NLIST(j)  is  the  total  number  of  different  item  types  at  unit  j,  where  j=  1  through  NUNIT. 
TYPENO(k,j)  is  defined  as  the  kth  different  item  type  at  unit  j,  where  k=  1  through  NLIST(j)  and  j=  1  through 
NUNIT.  (For  example,  TYPENO(l,2)  represents  the  first  item  type  at  Unit  2.)  NEI(k,j)  represents  the  total 
number  of  items  at  unit  j  for  the  kth  different  item  type;  where  k=  1  through  NLIST(j)  and  j=  1  through  NUNIT. 

The  arrays  NLIST,  TYPENO,  and  NEI  are  set  up  by  Subroutine  INPUT.  Each  time  a  different  TAM 
number  in  the  Landing  Force  and  its  associated  parameters  are  read  in  (see  Section  4.0),  arrays  NLIST,  TYPENO, 
and  NEI  are  updated  to  include  this  new  item  type. 

For  example,  suppose  the  ith  TAM  number  is  read  in.  The  parameters  associated  with  this  item  type 
are: 

TAMNO(i)  TAM  number 

NUTNAI  Number  of  Units  which  contain  items  of  this  type 

UNITNO(k);  k=l, NUTNAI  List  of  units,  by  identification  number,  which  contain  items 

of  this  type 

UNITDEN(k)  Total  number  of  items  of  this  type  at  unit  UNITNO(k); 

k=  1  through  NUTNAI 

For  every  unit  which  contains  type  i  items,  the  following  actions  will  occur;  i.e.,  for  every  unit  j,  where 
j=UNITNO(L)  and  L=  1  through  NUTNAI: 

NLISTQ)  =  NLIST(j)  +  1 
TYPENO(NLISTO)  j)  =  i 
NEI(NLISTO)j)  =  UNITDEN(j) 

As  an  illustration  of  the  above  process,  suppose  there  are  three  units  in  a  Landing  Force  and  three 
different  item  types.  The  following  information  will  be  read  in  by  Subroutine  INPUT. 

The  TAM  number  of  the  first  item  type  is  All  11.  At  Unit  1  there  are  2  items  of  this  type;  at  Unit 
3  there  are  5. 

The  TAM  number  of  the  second  item  type  is  A131 1.  At  Unit  1  there  are  7  items  of  this  type;  at 
Unit  2  there  are  11. 

The  TAM  number  of  the  third  item  type  is  B0000.  At  Unit  1  there  are  4  items  of  this  type,  at 
Unit  2  there  are  3;  at  Unit  3  there  is  1. 
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The  following  variables  will  then  be  set  up  by  Subroutine  INPUT.  Since  Unit  1  contains  all  three 
item  types,  the  variable  NLIST(1)=3;  Unit  2  contains  two  items  types  and  the  variable  NL1ST(2)=2;  Unit  3 
contains  two  item  types  and  the  variable  NLIST(3)=2.  The  following  variables  apply  to  Unit  1: 


TYPENOO  ,1)=1 

NEI(1,1)=2 

TYPENO(2,l  )=2 

NEI(2,1)=7 

TYPENO(3,l  )=3 

NEI(3,1  )=4 

The  following  variables  apply  to  Unit  2; 

TYPENO(l,2)=2 

NEI(1 ,2)=1 1 

TYPENO(2,2)=3 

NEI(2 ,2)=3 

The  following  variables  apply  to  Unit  3: 

TYPENO(l, 3)=1 

NEi(l  ,3)=5 

TYPENO(2,3)=3 

NE1(2,3)=1 

APPENDIX  B 
CONTROL  CARDS 


The  control  cards  (see  Figure  6)  located  at  the  beginning  of  the  program  direct  the  computer  to: 

•  Copy  the  File  for  Item  Characteristics  on  to  a  scratch  tape 

•  Load  the  Maintenance  Equipment  File  on  to  a  tape  drive 

•  Read  in  and  execute  the  program 

The  File  for  Item  Characteristics  is  mounted  on  a  tape  drive  and  its  contents  are  then  transferred  to 
TAPE  2  by  the  commands: 

LABEL, LMAUEI,L=CACY,R,D=HY. 

COPYCF,LMAUEI,TAPE2 . 

The  Maintenance  Equipment  File  is  mounted 
LABEL, TSEQ,L=CACY,R,D=HY. 

Its  contents  are  transferred  to  TAPE1  by  the  program 
the  program  is  read  in  and  execution  begins. 


(CJ0236/NORING) 

on  a  tape  drive  by  the  command: 

(CJ0234/NORING) 

card  in  the  Executive  Routine.  After  these  commands 
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UNLOAD, TSEQ. 


LAST  CARD 


j^LGO, 


SETCORE. 


RFL,1 30000. 


t 


LABEL,TSEQ,L=CACY,R,D  =  HY.  (CJ0234/NORING) 


RFL,1300. 


C 


{• 


UNLOAD, LMAUEI. 


COPYCF,LMAUEIJAPE2. 


6 


/\ RFL, 


10000. 


LABEL,LMAUEI,L  =  CACY,R,D  =  HY.  (CJ0236/NORING) 


RFL, 1300. 


^FTN. 


CHARGE, CACY,1 186500540, RS,B. 


(• 


CACYSTU.CMI  30000, T3200,P3,MT1.  1865,MARCUS 


FIRST  CARD 


Figure  6.  Control  Cards 
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APPENDIX  C 

MAINTENANCE  EQUIPMENT  FILE 


The  tool  sets,  kits,  and  special  equipment  required  by  the  maintenance  shops  are  listed  on  the  permanent 
file  identified  as  follows: 

Logical  File  Name  =  TSEQ 
File  Label  =  CACY 

Tape  Density  =  HY  (800  BPI  7  TRACK) 

Visual  Reel  Number  =  CJ0234 

The  characteristics  of  each  tool  set,  kit,  and  special  equipment  are  stored  on  the  file  as  a  “record.” 

Each  record  consists  of  160  characters  (two  card  images).  The  records  are  grouped  according  to  the  class  to 
which  the  maintenance  equipment  belongs  (i.e.,  Communications/Electronics,  Engineer,  Motor  Transport,  or 
Ordnance).  Within  each  group,  the  records  are  ordered  alphanumerically  according  to  the  TAM  number  of  the 
maintenance  equipment  (as  stated  on  the  first  card  of  the  record).  To  set  off  the  different  groups,  identifying 
header  cards  (80  characters  each  with  an  integer  number  in  the  first  2  card  columns)  are  used  as  indicated 
here: 

10  Communications/Electronics  Class 
20  Engineer  Class 
30  Motor  Transport  Class 
40  Ordnance  Class 

Figure  7  indicates  the  arrangement  of  this  file. 

The  contents  of  this  file  are  transferred  to  a  scratch  file  (TAPE  1)  by  a  command  from  the  program 
card  in  the  Executive  Routine.  Any  reference  in  this  report  and  in  the  program  listing  to  TAPE  1  indicates  a 
requirement  for  the  Maintenance  Equipment  File. 

Table  3  describes  the  variables  on  a  record  for  the  ith  maintenance  equipment  and  gives  the  required 
format  and  card  column,  where  the  information  is  entered. 
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Figure  7.  Arrangement  of  Maintenance  Equipment  File 


TABLE  3  -  DESCRIPTION  OF  THE  VARIABLES  IN  THE 
MAINTENANCE  EQUIPMENT  FILE 


Variable 

Name 

Card 

Column 

Format 

Description 

First  Card  of  Record: 

ICLASS 

i 

11 

Indicates  class  to  which  maintenance  equipment  belongs 
ICLASS=1  Communication/Electronics 

ICLASS=2  Engineer 

ICLASS=3  Motor  Transport 

1CLASS-4  Ordnance 

IFLAG 

2 

11 

Indicates  either  that  the  maintenance  equipment  is  a 
function  of  the  total  number  of  items  in  the  Landing 
Force  (IFLAG=1),  or  that  the  maintenance  equipment 
is  a  function  of  the  total  number  of  maintenance 
personnel  and  their  military  occupational  specialty  MOS 
(IFLAG=2) 

TTAMNO(i) 

3-7 

A5 

TAM  number  of  the  ith  type  of  maintenance  equipment 

* 

8 

11 

Number  of  separate  items  associated  with  the  mainte¬ 
nance  equipment  indicated;  i.e.,  the  component  parts  of 
a  shop  set 

CONT 

9 

A1 

Indicates  that  the  maintenance  equipment  is  part  of  a 
shop  set;  i.e.,  a  combination  of  two  or  more  items 

* 

10-15 

A6 

ID  number,  taken  from  TAM,  USMC 

* 

16-26 

111 

Federal  Stock  Number 

* 

27-32 

F6.2 

Area  in  square  feet  occupied  by  maintenance  equipment 
(square) 

* 

33-39 

F7.2 

Volume  in  cubic  feet  occupied  by  maintenance  equip¬ 
ment  (cube) 

* 

40-45 

16 

Weight  in  pounds  of  maintenance  equipment 

* 

55-57 

13 

Length  in  feet  of  maintenance  equipment 

* 

58-60 

13 

Width  in  feet  of  maintenance  equipment 

* 

61-63 

13 

Height  in  feet  of  maintenance  equipment 

N2E 

64 

11 

Total  number  of  this  maintenance  equipment  required 
for  a  2nd -echelon  level  repair 

N3E 

66 

11 

Total  number  of  this  maintenance  equipment  required 
for  a  3rd -echelon  level  repair 

N4E 

68 

11 

Total  number  of  this  maintenance  equipment  required 
for  a  4th-echelon  level  repair 

MODE 

70 

11 

Category  to  which  maintenance  equipment  belongs  (only 
valid  for  the  Motor  Transport  class) 

MODE=l  Gas  Powered 

MODE=2  Diesel  Powered 

MODE=3  Trailers 
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TABLE  3  -  DESCRIPTION  OF  THE  VARIABLES  IN  THE 
MAINTENANCE  EQUIPMENT  FILE  (continued) 


Variable 

Name 

Card 

Column 

Format 

Description 

First  Card  of  Record  (continued): 

NVS2E 

71-72 

12 

Total  number  of  items  in  the  Landing  Force  of  category 
MODE  which  can  be  supported  by  this  maintenance 
equipment 

ISC 

73-76 

14 

Integer  portion  of  the  TAM  number  of  the  item  repaired 
by  this  maintenance  equipment 

* 

77-80 

13 

Military  Occupational  Specialty 

Second  Card  of  Record: 

ICLASS 

1 

11 

(Same  as  on  First  Card) 

IFLAG 

2 

11 

(Same  as  on  First  Card) 

TTAMNO(i) 

3-7 

A5 

(Same  as  on  First  Card) 

* 

8 

11 

(Same  as  on  First  Card) 

CONT 

9 

A1 

(Same  as  on  First  Card) 

* 

10-15 

A15 

(Same  as  on  First  Card) 

NOMEN(i,l) 

16-25 

A10 

Descriptive  name  of  the  maintenance  equipment 

NOMEN(i,2) 

26-35 

A10 

Descriptive  name  of  the  maintenance  equipment 

NOMEN(i,3) 

36-45 

A10 

Descriptive  name  of  the  maintenance  equipment 

NOMEN(i,4) 

46-55 

A10 

Descriptive  name  of  the  maintenance  equipment 

NOMEN(i,5) 

56-65 

A10 

Descriptive  name  of  the  maintenance  equipment 

NOMEN(i,6) 

66-74 

A9 

Descriptive  name  of  the  maintenance  equipment 

^Column  not 

used  at  present 
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APPENDIX  D 

FILE  FOR  ITEM  CHARACTERISTICS 


The  characteristics  of  items  in  a  Landing  Force  used  in  a  10 -day  or  90 -day  mission  are  listed  on  the 
permanent  File  identified  as  follows: 

Logical  File  Name  =  LMAUEI 
File  Label  =  CACY 

Tape  Density  =  HY  (800  BPI  7  TRACK) 

Visual  Reel  Number  =  CJ0236 

The  characteristics  of  each  item  are  stored  on  the  File  as  a  “record.”  Each  record  consists  of  160 
characters  (two  card  images).  The  records  are  grouped  according  to  the  mission  length  to  which  the  item 
belongs.  Within  each  group,  the  records  are  ordered  alphanumerically  according  to  the  TAM  number  of  the 
item  (as  stated  on  the  First  card  of  the  record).  To  set  off  the  records  of  the  items  used  in  the  10 -day 
mission  from  those  in  the  90 -day  mission,  identifying  header  cards  (160  characters  each  with  alphanumeric 
characters  in  the  First  6  card  columns)  are  used  as  indicated  here: 

10  DAY  Items  used  in  a  10 -day  mission 

90  DAY  Items  used  in  a  90 -day  mission 

Figure  8  indicates  the  arrangement  of  this  File. 

The  contents  of  this  File  are  transferred  to  a  scratch  File  (TAPE  2)  by  commands  from  the  control 
cards.  Any  reference  in  this  report  and  in  the  program  listing  to  TAPE  2  indicates  a  requirement  for  the  File 
For  Item  Characteristics. 

Table  4  describes  the  variables  on  a  record  for  the  ith  item  in  the  landing  force  and  gives  the 
required  format  and  card  column  where  the  information  is  entered. 
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LAST 

CARD 


Figure  8.  Arrangement  of  File  for  Item  Characteristics 
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TABLE  4  -  DESCRIPTION  OF  THE  VARIABLES  IN  THE 
FILE  FOR  ITEM  CHARACTERISTICS 


Variable 

Card 

Format 

Name 

Column 

First  Card  of  Record: 

TAMN 

1-5 

A5 

SQO) 

6-11 

F6.2 

CUBE(i) 

12-18 

F7.2 

MTBF(i) 

19-24 

F6.0 

UF(i) 

25-27 

F3.0 

ISUP(i) 

28-30 

13 

EMB(i) 

31-32 

A2 

Second  Card 

of  Record: 

NOMEN(i.l) 

1-10 

A10 

NOMEN(i,2) 

11-20 

A10 

NOMEN(i,3) 

21-30 

A10 

NOMEN(i,4) 

31-40 

A10 

NOMEN(i,5) 

41-50 

A10 

NOMEN(i,6) 

51-60 

A10 

NOMEN(i,7) 

61-65 

A5 

Description 

TAM  number  of  the  ith  item  in  the  landing  force 
Square  of  item 
Cube  of  item 

Mean  time  between  failure  of  item 
Utilization  Factor  of  item 
Standard  of  Unit  packaging  of  item 
Embark  information  for  item 

Nomenclature  of  item 
Nomenclature  of  item 
Nomenclature  of  item 
Nomenclature  of  item 
Nomenclature  of  item 
Nomenclature  of  item 
Nomenclature  of  item 
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